Dim derLig As Long
Dim lig
' Dernière ligne vide en colonne A
derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
' Boucle de la dernière à la première ligne
For lig = derLig To [COLOR="Red"]1[/COLOR] Step -1 [COLOR="red"]' le 1 est à adapter en fonction de ton fichier[/COLOR]
' Si le contenu de la cellule est vide, sortir
If Range("A" & lig).Value <> "" Then
Exit For
End If
Next lig
' Affichage de la dernière ligne vide
Range("D1").Value = lig + 1