pas besoin de boucle ou de dictionnaire...Bonsoir a tous,
J'ai un fichier excel et son calcul est très lent, est-ce qu'il y'aurait une methode par exemple de dictionnaire pour accelerer le calcul
Merci a vous tous
Sub raz()
Dim i As Long
Dim PL As Range
Set PL = Range("A1")
For i = Cells(Rows.Count, "A").End(xlUp).Row To 4 Step -1
If Cells(i, 15).Value = 5 Or Cells(i, 15).Value = 3 Then Set PL = IIf(PL.Cells.Count = 1, Rows(i), Application.Union(PL, Rows(i)))
Next
PL.Delete
End Sub