Public Function PremiereLigneVide(Colonne As Integer) As Long
PremiereLigneVide = Columns(Colonne).Find("", , , , xlByRows, xlNext).Row
End Function
Private Sub ExempleUtilisation()
Dim intColonne As Integer
Sheets(1).Select
intColonne = 1
'*** il suffit de changer la valeur de intColonne, qui doit
' correspondre à la colonne de recherche
MsgBox PremiereLigneVide(intColonne)
End Sub