Private Sub ToggleButton1_Click()
Dim cell As Range
Dim maplage As Range
If ToggleButton1 = True Then
ToggleButton1.Caption = "Masquer lignes vides"
ActiveSheet.Rows.Hidden = False
Else
ToggleButton1.Caption = "Afficher tout"
[COLOR=blue]Application.ScreenUpdating = False
[/COLOR] Set maplage = Feuil2.Range("R1:R7416")
For Each cell In maplage
If cell.Value = 0 Then cell.EntireRow.Hidden = True
Next
[COLOR=blue]Application.ScreenUpdating = True[/COLOR]
[COLOR=blue] Range("A1").Select[/COLOR]
[COLOR=blue] msgbox "C'est Terminé !"
[/COLOR]End If
End Sub