Private Sub CommandButton1_Click()
If (Me.CommandButton1.Caption = "Masquer les congés") Then
Columns("C:O").Select
Range("C2").Activate
Selection.EntireColumn.Hidden = True
Me.CommandButton1.Caption = "Afficher les congés"
Range("B3").Select
Else
Columns("B:P").Select
Range("B2").Activate
Selection.EntireColumn.Hidden = False
Me.CommandButton1.Caption = "Masquer les congés"
Range("B3").Select
End If
End Sub