Sub test()
'Déclaration ==============================
Dim Col_R As Integer, Col As Integer
Dim F_A As Worksheet, F_W As Worksheet, F_S As Worksheet
Dim Cel As Range, Cel_R As Range
'MEI ======================================
Set F_A = Sheets("AllDated")
Set F_W = Sheets("WorldIDX")
Set F_S = Sheets("STOXXSS")
'mise en forme de la feuille STOXXSS -------
For Each Cel In F_S.Range(F_S.[A3], F_S.Cells(Rows.Count, "A").End(xlUp))
Cel.NumberFormatLocal = "jj/mm/aaaa"
Cel = CDate(Replace(Cel, ".", "/"))
Next Cel
'Copie des données ========================
For Each Cel_R In F_A.Range(F_A.[A3], F_A.Cells(Rows.Count, "A").End(xlUp))
If Cel_R <> "" Then
For Col_R = 2 To 7 'pour tous les titres (colonnes 2 à 7)
Col = 0 'remise à zéro
Col = F_W.Rows(2).Find(F_A.Cells(2, Col_R)).Column 'on recherche la colonne de même titre
If Col > 1 Then
Set Cel = F_W.Columns(Col - 1).Find(Cel_R)
If Not (Cel Is Nothing) Then F_A.Cells(Cel_R.Row, Col_R) = Cel.Offset(0, 1)
End If
Next Col_R
'-------------------------------------------------------------
Set Cel = F_S.Columns(1).Find(Cel_R)
If Not (Cel Is Nothing) Then
For Col_R = 8 To 11 'pour tous les titres de "STOXXSS"
F_A.Cells(Cel_R.Row, Col_R) = F_S.Cells(Cel.Row, Col_R - 6)
Next Col_R
End If
End If
Next Cel_R
'Fin boucle date --------------------------
End Sub