Sub Bouton1_Clic()
clicbouton
End Sub
Sub Bouton2_Clic()
clicbouton
End Sub
Sub clicbouton()
With ActiveSheet.Shapes(Application.Caller)
If .DrawingObject.Caption <> "" Then
old = .DrawingObject.Caption
.DrawingObject.Caption = ""
.AlternativeText = old
Else
.DrawingObject.Caption = .AlternativeText
End If
End With
End Sub