Private Sub ToggleButton1_Click()
Dim cacher As Boolean
Dim i, i2 As Integer
Application.ScreenUpdating = False
If ToggleButton1.Value = True Then 'bouton enfoncé
ToggleButton1.Caption = "RV"
ToggleButton1.BackColor = &HFFFFFF 'blanc
ToggleButton1.ForeColor = &HFF 'rouge
For i = 0 To 200
cacher = True
If Range("F4").Offset(0, i).Value = "" Then Exit For
For i2 = 0 To 9
If Range("F5").Offset(i2, i).Value = "x" Then
cacher = False
Exit For
End If
Next i2
'cacher si on n'a rencontré aucun "X" dans la colonne
If cacher = True Then
Range("F5").Offset(0, i).EntireColumn.Hidden = True
End If
Next i
Else 'bouton normal
ToggleButton1.Caption = "Complet"
ToggleButton1.BackColor = &H80FFFF 'jaune clair
ToggleButton1.ForeColor = &HFF0000 'bleu
'afficher toutes les colonnes
Columns("F:IV").EntireColumn.Hidden = False
End If
Application.ScreenUpdating = False
End Sub