J'ai un code qui me permet d'effacer des lignes si ma cellule contient la valeur "Sophie".
Le problème c'est que l'execution du code est beaucoup trop long.
Je me demandais si il était possible d'optimiser ce code?
For n = Range("B65536").End(xlUp).Row To 3 Step -1
If Range("C" & n) <> "Sophie" Then Rows(n).Delete
Next
Sub efface()
Application.ScreenUpdating = False
tablo = Range("B1:B" & Range("B65536").End(xlUp).Row)
For n = UBound(tablo, 1) To 3 Step -1
If tablo(n, 1) = "Sophie" Then Rows(n).Delete
Next n
Application.ScreenUpdating = True
End Sub