Sub reinvestir()
If Range("AI151") = "" Then
Range("AI151") = "x"
ActiveSheet.Shapes("Button 101").Select
Selection.Characters.Text = "C"
Application.Goto Range("AB38"), True
Range("AD128").Select
Else
Range("AI151") = ""
CommandButton101.Caption = "Mon texte " & Chr(216)
Application.Goto Range("AB38"), True
Range("AD128").Select
End If
End Sub