Private Sub CommandButton1_Click()
Dim test As Byte, cel As Range
Application.ScreenUpdating = False
test = InStr(CommandButton1.Caption, "Afficher")
CommandButton1.Caption = IIf(test, "Masquer les garanties non accordées", "Afficher toutes les garanties")
For Each cel In [Tablo].Resize(, 1)
If cel <> "" And cel.Offset(, 1) = 0 Then cel.EntireRow.Hidden = test = 0
Next
End Sub