Private Sub CommandButton1_Click()
X = Cells(1, 1).Width
colonne = 1
While X < CommandButton1.Left
colonne = colonne + 1
X = X + Cells(1, colonne).Width
Wend
Y = Cells(1, 1).Height
ligne = 1
While Y < CommandButton1.Top
ligne = ligne + 1
Y = Y + Cells(ligne, 1).Height
Wend
MsgBox "La cellule est : cells(" & ligne & "," & colonne & ")"
End Sub