Sub masque2()
Dim Cel As Range
With Feuil1.Shapes("Button 1").TextFrame.Characters
If .Text = "Masque" Then
.Text = "Démasque"
Range("19:41,45:71,75:92,96:128").EntireRow.Hidden = True
Else
.Text = "Masque"
For Each Cel In Range("B19:B128")
If Trim(Cel) <> "" Then Rows(Cel.Row).Hidden = False
Next Cel
End If
End With
End Sub