Sub MiseEnForme()
'On bloque le rafraichissement de l'écran
Application.ScreenUpdating = False
'On parcourt la colonne A et à chaque fois qu'il y a un "Oui", alors on cache la ligne
For i = [A65000].End(xlUp).Row To 1 Step -1 'jusqu'a la ligne 65000
If Cells(i, 2) = "Oui" Then Rows(i).Hidden = True 'pour la ligne "i" en colonne 1 (A) on cherche "Oui et on cache
Next i 'puis on change de ligne
'On réactive le rafraichissement de l'écran
Application.ScreenUpdating = True
End Sub