Sub PushBouton1()
With ActiveSheet.Shapes("Bouton1")
If .TextFrame2.TextRange.Text = "Masquer A" Then
.TextFrame2.TextRange.Text = "Démasquer A"
.Fill.ForeColor.RGB = RGB(150, 250, 0)
Rows("29:41").Hidden = True
Else
.TextFrame2.TextRange.Text = "Masquer A"
.Fill.ForeColor.RGB = RGB(255, 200, 0)
Rows("29:41").Hidden = False
End If
End With
End Sub