Programme trop lent (nb de lignes important)

Bonjour,

J'ai un soucis concernant la lenteur d'un programme que j'ai écrit. J'ai conscience qu'il n'est pas optimal. J'aimerais que dans une colonne j'ai toutes les dates de la plus ancienne à aujourd'hui et que dans les autres colonnes, il y ait, les valeurs des indices et des taux correspondant à ces mêmes dates (car sur le marché américain et sur le marché français les jours fériés ne sont pas les mêmes).

Voilà ce que j'ai commencé à écrire:
Sub alignerrésultats()
For i = 2 To 3000
For j = 2 To 2600
If Worksheets("essai vba").Cells(i, 1).Value = Worksheets("feuil4").Cells(j, 3).Value Then
Worksheets("essai vba").Activate
Cells(i, 2).Value = Worksheets("feuil4").Cells(j, 4).Value
End If
If Worksheets("essai vba").Cells(i, 1).Value = Worksheets("feuil4").Cells(j, 6).Value Then
Worksheets("essai vba").Activate
Cells(i, 3).Value = Worksheets("feuil4").Cells(j, 7).Value
End If
If Worksheets("essai vba").Cells(i, 1).Value = Worksheets("feuil4").Cells(j, 12).Value Then
Worksheets("essai vba").Activate
Cells(i, 4).Value = Worksheets("feuil4").Cells(j, 13).Value
End If
Next j
Next i
End Sub

Je suis un peu découragée. J'ai essayé aussi avec rechercheV mais ça n'a pas l'air de vouloir marcher. Merci beaucoup pour votre aide.

Cordialement,

Elima