2 boucles "For" imbriquées_Temps de calcul

Bonjour,

Ci-joint un fichier de traduction. Le but est de coller les traductions allemandes à coté des traductions anglaises en s'appuyant sur les numéros de la colonne A. Si les numéros des 2 mots sont égaux alors on colle la traduction allemande.

Pour ce faire je suis passé par un tableau. En effet le tableau d'origine contenant environ 35 000 lignes, c'est plus rapide. Le problème est que j'ai fait deux boucles "For" imbriqués et le temps d’exécution est d'un peu moins de 32 secondes. J'aimerais réduire ce temps.

Voici les boucles en question :

For i = 0 To LastRowEnglich    
      For j = LastRowEnglich + 1 To RowEnd - 1
            If table(i, 0) = table(j, 0)  Then
                  Range("D" & i + 1) = table(j, 2)
            End If
      Next
Next

Mon niveau en algorithmie est pas génial et j'aimerais savoir quelles modifications apportées pour améliorer le temps d'exécution.

Cordialement

Edit : je me suis trompé de fichier, dsl.

bonjour

Essaie ce Code

Sub Translate()
Dim MaCellule  As Object
Application.ScreenUpdating = False
For Each MaCellule In Range("A1", Range("A1").End(xlDown))
If MaCellule = MaCellule.Offset(1, 0) Then
MaCellule.Offset(1, 2).Copy
MaCellule.Offset(0, 3).PasteSpecial Paste:=xlPasteValues
MaCellule.Offset(1, 0).EntireRow.Delete
End If
Next MaCellule
Application.ScreenUpdating = True
End Sub

Cordialement

Le temps d'exécution est supérieur à 200 secondes.

Merci pour la réponse.