tri simple

Private Sub ToggleButton1_Click()
Dim C As Range [COLOR=seagreen]' Déclare la Variable C[/COLOR]
Application.ScreenUpdating = False[COLOR=seagreen] ' Fige l'ecran[/COLOR]
If ToggleButton1 = True Then [COLOR=seagreen]'Si le Bouton est cliquer condition 1[/COLOR]
ToggleButton1.Caption = "Afficher" [COLOR=seagreen]' Bouton marqué Afficher[/COLOR]
For Each C In Range("Base") [COLOR=seagreen]' pour chaque cellule dans la Base[/COLOR]
    If C.Value = "" Then [COLOR=seagreen]' Si la cellule est vide condition 2[/COLOR]
        C.RowHeight = 0 [COLOR=seagreen]'Masque la ligne[/COLOR]
    End If [COLOR=seagreen]' Fin de Condition 2[/COLOR]
Next [COLOR=seagreen]' Prochaine Cellule[/COLOR]
'Columns("C:C").ColumnWidth = 0
Else[COLOR=seagreen] ' Si tu reclique sur le bouton[/COLOR]
ToggleButton1.Caption = "Masquer"[COLOR=seagreen] '[/COLOR][COLOR=seagreen] Bouton marqué Masquer[/COLOR]
For Each C In Range("Base") [COLOR=seagreen]' pour chaque cellule dans la Base[/COLOR]
        C.RowHeight = 12.75[COLOR=seagreen] ' Ligne à hauteur standard[/COLOR]
Next[COLOR=seagreen] ' Prochaine Cellule[/COLOR]
'Columns("C:C").ColumnWidth = 10.71
End If [COLOR=seagreen]' Fin de Condition 1[/COLOR]
Application.ScreenUpdating = True [COLOR=seagreen]'Defige l'écran[/COLOR]
End Sub