VBA recherchev avec sierreur

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