Sub Administration()
Dim Cel As Range, ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
With ws.Shapes("Button 7").TextFrame.Characters
If .Text = "Masquer" Then
.Text = "Personnel"
ws.Range("14:66").EntireRow.Hidden = True
Else
.Text = "Masquer"
For Each Cel In ws.Range("A14:A66")
If Trim(Cel) <> "" Then ws.Rows(Cel.Row).Hidden = False
Next Cel
End If
End With
Next ws
End Sub