EXCEL - MACRO

Sub en_conc_la_liste_vente_ac_liste_ref()
Dim i As Long
    For i = 307 To 2304
        Sheets("vente monde").Select
        Cells(i, 5).Select
            'Range("E307").Select
            'la je selectionne la valeur à trouver
            '(cela serait bien si ca pouvais faire la même chose jusqu'à E2304)
        Selection.Copy
            'Sheets("vente monde").Select
            'Columns("F:F").Select
            ' la je fais un find avec la valeur a trouver
        Range("E253").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Application.CutCopyMode = False
        Selection.Copy Sheets("requet_temp").Cells(i, 28)
            'Range("AB307").Select
            'ActiveSheet.Paste
    Next i
    
End Sub

'Dans la feuille "requet_temp" prendre la valeur en E307.
'aller dans la feuille "vente monde"
'rechercher la meme valeur dans la colonne F
'Si elle trouve selectionner dans "vente monde" la ligne correspondante à la valeur trouvée et la copier
'retourner dans la feuille "requet_temp" et la coller en ligne 307 à partir de la colonne AB
'copier la ligne correspondante de la colonne E à GY
Sub en_conc_la_liste_vente_ac_liste_ref()
Dim i As Long, e As Long
Dim FL1 As Worksheet
Dim FL2 As Worksheet
    Set FL1 = Sheets("vente monde")
    Set FL2 = Sheets("requet_temp")
    For i = 307 To 2304
        For e = i To FL2.Range("F65536").End(xlUp).Row
            If FL2.Cells(e, 6) = FL1.Cells(i, 5) Then
                'ici trouver le nom
                FL2.Range(Cells(e, 5), Cells(e, 207)).Copy FL1.Cells(i, 28)
            End If
        Next e
    Next i
End Sub