Sub Toto()
Dim DernLign As Long
DernLign = Range("A" & Rows.Count).End(xlUp).Row + 1
MsgBox "Première ligne vide de la colonne A: " & DernLign
'ou
Dim rg As Range
Set rg = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
MsgBox "L'adresse de la première cellule vide de la colonne A est : " & rg.Address
End Sub