Sub derligne()
derl = Range("A65536").End(xlUp).Row + 1 'colonne A
MsgBox derl
derl = Sheets("feuil1").Range("B" & Cells.Rows.Count).End(xlUp).Row + 1 ' Colonne B
MsgBox derl
'ou bien
derl = [B:B].Find("*", , xlFormulas, , xlByRows, xlPrevious).Row + 1 ' Colonne B
MsgBox derl
End Sub