Optimisation programme VBA !

Bonjour !

Je me permets de poster ce message car j'ai besoin de votre aide. En effet, n'étant pas un expert en VBA, je rencontre quelques difficultés sur un programme qui fonctionne, mais qui prend beaucoup trop de temps pour s'exécuter (entre une et deux heures !).

Je m'explique. Je possède deux feuilles Excel. La première, nommée « Copie table types mines » contient près de 50 000 lignes de données et la seconde nommée « RTMP0001 » en contient pour sa part quasiment 10 000 pour faire simple. Or, j'ai dans chacune des deux feuilles une colonne qui contient pour chaque ligne une clé qui est créée à partir de plusieurs cellules de la ligne en question (la marque du véhicule, son identifiant, son type et son poids). Le programme que j'ai créé va alors (pour sa partie principale, celle qui me prend le plus de temps) comparer chaque clé de la feuille « Copie table types mines » avec celles de la feuille « RTMP0001 ».
Le programme s'arrête lorsqu'il a trouvé une clé qui correspond parfaitement, ou s'il a bouclé pour toutes les clés du fichier X sans trouver de correspondance et passe ensuite à la clé suivante du fichier Y. On doit normalement retrouver toutes les clés de la feuille « Copie table types mines » dans la feuille « RTMP001 » (en réalité, on en retrouve environ 98%, les 2% manquants provenant d'une donnée manquante pour un véhicule). Si deux clés concordent, le programme met le message « Trouvé ! » dans la colonne à côté de la clé testée, sinon il met le message « Pas trouvé ».

Du fait de la longueur des fichiers, le temps nécessaire pour la réalisation du programme complet est juste énorme ! Je ne l'ai d'ailleurs testé pour le moment « que » sur 3000 lignes au maximum, ce qui prend déjà plus de 30 MINUTES !!! Cela s'explique notamment par les nombreuses boucles qui se suivent (do et if surtout). J'ai bien essayé de classer les marques par ordre alphabétique, mais cela ne fait pas gagner beaucoup de temps, ce qui était prévisible...

J'en appelle donc à vos connaissances en VBA pour m'aider sur ce programme s'il vous plaît ! J'ai entendu parler des « arrays » (dont je ne sais pas me servir) qui feraient gagner un temps énorme, mais je ne sais pas si cela peut être appliqué à mon problème...

Je joins la partie de mon programme (celle qui est TRÈS gourmande en temps) :



i = 2 'On incrémente les deux variables qui vont servir à changer de ligne dans les deux feuilles en question.
j = 2 'La variable i pour "Copie table types mines" et la j pour "RTMP0001". On part de 2 pour ne pas prendre en compte les en-têtes qui contiennent les intitulés de colonnes.

Do 'Lancement d'une boucle répéter

While Sheets("Copie table types mines").Cells(i, 3) <> "" 'Tant que la cellule dans la colonne "CLÉ JUSTE" comporte des caractères, le programme rentre dans la boucle.

If Sheets("Copie table types mines").Cells(i, 15) = "OUI" Then 'Si, pour la ième cellule, le programme trouve un "OUI" dans la colonne "CLÉ DÉJA TROUVÉE ?", il passe à la clé suivante de la feuille "Copie table types mines"
i = i + 1 ' On passe à la clé suivante

Else

If Sheets("Copie table types mines").Cells(i, 3) = Sheets("RTMP0001").Cells(j, 9) Then 'Si les deux cellules correspondent, le programme va mettre le message "Trouvé" dans la colonne "Correspondance" de la feuille "RTMP0001".

Sheets("RTMP0001").Cells(j, 10) = " Trouvé ! " 'Message qui confirme que deux clés concordent.
Sheets("Copie table types mines").Cells(i, 15) = " OUI " 'Si deux clés concordent, on place dans la colonne "CLÉ DÉJA TROUVÉE ?" de la feuille "Copie table types mines" un "OUI" afin que la clé ne soit pas retestée.

j = j + 1 'On passe à la clé (de la feuille RTMP001) suivante.
i = 2 'On réincrémente la variable i pour qu'elle reparte du début des clés de la feuille "Copie table types mines".

Else
i = i + 1 'On passe à la ligne suivante de la colonne "CLÉ JUSTE" dans la feuille "Copie table types mines".

End If

End If

Wend

If Sheets("Copie table types mines").Cells(i, 2) = "" Then ' Si le programme a comparé la cellule en question de la feuille "RTMP0001" et qu'il n'a pas trouvé de correspondance avec une des clés de la feuille "Copie table types mines", il affiche dans la colonne "Correspondance" un message d'erreur

If Sheets("RTMP0001").Cells(j, 2) <> "" Then 'Boucle si créer afin d'éviter que la première ligne sans information dans la page "RTMP001" ne contienne le message "Pas trouvé" dans la colonne "COMPARAISON"

Sheets("RTMP0001").Cells(j, 10) = " Pas trouvé " 'On place un message qui indique à l'utilisateur (dans la colonne "CLÉ DÉJA TROUVÉE ?")que le programme n'a pas trouvé de concordance pour la clé en question

j = j + 1 'On passe à la clé suivante (de la feuille RTMP0001)
i = 2 'On réincrémente la variable i pour qu'elle reparte du début des clés de la feuille "Copie table types mines"

End If
End If
Loop Until Sheets("RTMP0001").Cells(j, 2) = "" 'Boucle répétitive qui va voir si dans les deux colonnes "CLÉ JUSTE" et "CLÉ", deux clés concordent. On prend comme condition d'arrêt le fait que la deuxième ligne (Gamme) soit vide et non la première (Type mine), car il existe quelques lignes avec des types mines non renseignés.



Merci d'avance pour vos réponses !!!