Macro : copier la dernière cellule de la colonne

Tu peux essayer quelque chose comme ça :

Sub DerniereCelluleDeLaColonne()
	'Retourne la valeur de la dernière cellule de la colonne B
	Dim DerniereCellule As String
	With ActiveSheet
		DerniereCellule = .Cells(.Rows.Count, "B").End(xlUp).Row
	End With
	
	'Recopier la valeur dans une nouvelle cellule
	Sheets("Feuil2").Range("A1").Value = DerniereCellule
End Sub

Hello,

Pourquoi pas se faire une petite procédure avec passage d'argument :

Sub Bouton1_Clic()
  Call CopyLastCell("Feuil1", "B", "Feuil2", "A1")
End Sub

Sub CopyLastCell(NomFeuilleDépart As String, ColonneDépart As String, NomFeuilleArrivée As String, CellArrivée As String)
  Sheets(NomFeuilleArrivée).Range(CellArrivée).Value = Sheets(NomFeuilleDépart).Cells(Sheets(NomFeuilleDépart).Rows.Count, ColonneDépart).End(xlUp).Row
End Sub

C'est la diégèse