Private Sub CommandButton1_Click()
On Error Resume Next
x = CDbl(InputBox("chiffre"))
If Err > 0 Then Exit Sub
MsgBox Split(Cells(1, x).Address, "$")(1)
End Sub
Private Sub CommandButton2_Click()
tx = InputBox("lettre")
If tx = "" Then Exit Sub
MsgBox Cells(1, tx).Column
End Sub