Sub Bouton1_Clic()
compteur = 0
Application.ScreenUpdating = False
For i = 2 To WorksheetFunction.CountA(Range("A:A"), "<> """) - 1
Rows(i).Hidden = Not Rows(i).Hidden
If Rows(i).Hidden = False Then compteur = compteur + 1
Next i
Application.ScreenUpdating = True
MsgBox (compteur & " enregistrements trouvés")
End Sub