Option Explicit
Dim CelR As Range
Private Sub ToggleButton1_Change()
Application.ScreenUpdating = False
With ActiveSheet
For Each CelR In .Range("A10:A65536").SpecialCells(xlCellTypeConstants)
If CelR.Offset(0, 5).Value = 0 Or CelR.Value = "" Then CelR.EntireRow.Hidden = True Eqv ToggleButton1.Value
Next CelR
End With
ToggleButton1.Caption = IIf(ToggleButton1, "Afficher lignes vides", "Masquer lignes vides")
Application.ScreenUpdating = True
End Sub