Private Sub CommandButton1_Click()
'Différents exemples pour illustrer ce qui se passe quand on clique
MsgBox CommandButton1.TopLeftCell.Address(0, 0) 'cellule liée au bouton
MsgBox CommandButton1.TopLeftCell.Offset(, -1).Address(0, 0)
MsgBox CommandButton1.TopLeftCell.Offset(, -2).Address(0, 0)
MsgBox CommandButton1.TopLeftCell.Offset(, -2).Resize(, 2).Address(0, 0)
CommandButton1.TopLeftCell.Offset(, -2).Resize(, 2) = Array(Application.Name, Application.UserName)
End Sub