EXCEL - MACRO

Sub en_conc_la_liste_vente_ac_liste_ref()
Dim i As Long, e As Long
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim a$, b$
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Set FL1 = Sheets("vente monde")
    Set FL2 = Sheets("requet_temp")
    For i = 307 To 2304
        For e = 4 To 2200
        '    FL2.Range("F65536").End(xlUp).Row
        'Pas possible d'employé cette formule, elle va jusque 28000
        'Si plus de lignes dans ta base augmenter ce nombre.
            If FL2.Cells(i, 5) = FL1.Cells(e, 6) Then
                FL1.Select
                Range(Cells(e, 5), Cells(e, 207)).Copy
                FL2.Select
                Cells(i, 28).Select
                ActiveSheet.Paste
                Exit For
            End If
            DoEvents
        Next e
        DoEvents
    Next i
    Application.ScreenUpdating = True
    Application.EnableEvents = True

End Sub