Private Sub CommandButton1_Click()
Dim c As Range, dernTot As Integer, DernCol As Integer
With Range("B1:B18").Resize(, Columns.Count - 1) 'modifiable
Set c = .Find("*", , xlValues, , xlByColumns, xlPrevious)
If c Is Nothing Then MsgBox "Y a rien !": Exit Sub
dernTot = Intersect(.Rows(.Rows.Count + 1), c.EntireColumn)
DernCol = c.Column
MsgBox ("Valeur " & dernTot & " et colonne " & DernCol)
End With
End Sub