Option Explicit
Private Sub CommandButton1_Click()
Dim TheCell As Range
On Error GoTo Out
Set TheCell = Sheets('Sheet1'Â'Â').Range(CStr(TextBox1))
MsgBox 'La Valeur de la Cellule ' & TheCell.Address(0, 0) & ' = ' & TheCell.Value
Exit Sub
Out:
MsgBox 'Adresse de cellule non valide'
End Sub