Sub Bouton1_QuandClic()
Dim DernièreLigne As Long
Dim PremièreLigne As Long
PremièreLigne = Range("A1").End(xlDown).Row
DernièreLigne = Range("A65536").End(xlUp).Row
MsgBox "la première ligne est la " & PremièreLigne & " et la derniere ligne est " & DernièreLigne
End Sub
[COLOR="DarkSlateGray"][B] N = [A1:C5].Count - WorksheetFunction.CountIf([A1:C5], "") [COLOR="SeaGreen"]'Plage à adapter[/COLOR][/B][/COLOR]