Sub LesDernières()
Dim DerCol As Long, DerLig As Long, LaCell As String
With Feuil1
On Error GoTo fin
LaCell = .Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, _
.Cells.Find("*", , , , xlByColumns, xlPrevious).Column).Address
DerLig = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
DerCol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
MsgBox "La première ligne vide est la ligne : " & DerLig + 1 & vbLf & _
"La première colonne vide est la colonne : " & DerCol + 1 & vbLf & _
"La dernière cellule ocupée est la : " & LaCell, , "information"
End With
Exit Sub
fin:
MsgBox "Feuille vide" & vbLf & "La première ligne vide est la ligne : 1" & vbLf & _
"La première colonne vide est la colonne : 1", , "information"
End Sub