Sub SupLigneOui()
Application.ScreenUpdating = False
NbOui = Application.CountIf([A1:A65000], "OUI")
If NbOui = 0 Then Exit Sub
NbEffacés = 0
barreProgression.afficher
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "OUI" Then
Rows(i).Delete
NbEffacés = NbEffacés + 1
End If
barreProgression.SupLigneOui CInt(100 * NbEffacés / NbOui) 'ici c'est clair que ça marche!
Next
End Sub