Sub Chercher()
Dim Valo As Variant
Dim c As Range
Dim Absc As Long
Dim Dercol As Integer
Dim Dercollet As String
Valo = TextBox1.Value
With Sheets("Nomdetafeuil")
Set c = .Cells.Find(Valo, , xlValues, xlWhole)
If Not c Is Nothing Then
Absc = c.Row
Dercol = .Cells(Absc, 256).End(xlToLeft).End(xlUp).Column
Dercollet = Mid(.Cells(Absc, Dercol).Address, 2, InStr(2, .Cells(Absc, Dercol).Address, "$") - 2)
MsgBox "La dernière colonne est la n° " & Dercol & vbNewLine & "ou encore la colonne " & Dercollet, vbInformation, "Dernière colonne"
Else
MsgBox "La valeur rentrée n'a pas été trouvée", vbCritical
End If
End With
End Sub