Comparaison de 2 colonnes

Bonjour,

On vient de me demander de dépanner une macro qui ne fonctionne pas .....

Elle a pour but de comparer les valeurs (chiffres et lettres) des cellules de 2 colonnes (A) dans 2 feuilles différentes ( feuil2 et Feuil3) dans 2 classeurs (Encours-CTI et Classeurs2).

Des qu'une valeur est identique, nous voulons une copie des cellules B à T de la ligne concernée dans Feuil2 vers H de la ligne concernée de la Feuil3.

Quand je lance cette macro (située dans le classeur Encours-CTI), rien ne se passe, Execl est figé .. bref j'ai l'impression que cela tourne en boucle. je suis obligé d’arrêter l’exécution au bout de plusieurs minutes.

Quelqu'un peut me donner un coup de main ? Merci

le code :

Sub comparaison()

'

' comparaison Macro

'

'

Dim VALEURA As String, VALEURB As String

'

For i = 2 To 5000

VALEURA = Worksheets("Feuil2").Range("A" & i).Value

For j = 2 To 5000

VALEURB = Workbooks("Encours-CTI.xls").Worksheets("Feuil3").Range("A" & j).Value

If VALEURA = VALEURB Then

Workbooks("Encours-CTI.xls").Worksheets("Feuil3").Range(Range("B" & j), Range("T" & j)).Copy

Workbooks("Classeur2.xlsm").Worksheets("Feuil2").Range("H" & i).Paste

End If

Next j

Next i

End Sub

Bonjour Auriga, bonjour le forum,

J'ai déjà répondu a ce post sur un aute forum...