Bonjour à tous !

J'ai une petite question pour optimiser un programme qui met trop de temps à se derouler. j'ai 2 feuilles excel nommée PE (nombre de ligne = l) et RSA non orienté (nombre de ligne = k) que je dois croiser

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
For i = 2 To k
 
 
For j = 2 To l
 
 
 
        If Sheets("RSA Non orienté").Cells(i, 18) = Sheets("PE").Cells(j, 2) Then
 
        Sheets("RSA Non orienté").Cells(i, 20) = "Inscrit PE"
 
         End If
 
    Next j
 
 
 
    If Sheets("RSA Non orienté").Cells(i, 20) = "" Then
 
    Sheets("RSA Non orienté").Cells(i, 20) = "Non inscrit PE"
 
 
 
    End If
 
 
    Next i
En gros si la colonne 18 de la feuille RSA et la colonne 2 de PE sont égale alors la colonne 20 de RSA = "Inscrit PE" et si elle est vide alors on écrit "non inscrit PE"

J'aimerais bien qu'il passe au i suivant dès qu'il trouve l'égalité histoire qu'il ne parcours pas tout le fichier à chaque fois par éxemple, ce qui ferait gagner du temps.

Des idées ?

Merci d'avance