Sub Transfert()
Dim L%, IndexW%, DerLig%
Application.ScreenUpdating = False
Sheets("Feuil2").Range("B:C").ClearContents
DerLig = Application.Max(Range("F65500").End(xlUp).Row, Range("G65500").End(xlUp).Row)
For L = 1 To DerLig
If Application.CountIf(Sheets("Feuil2").Range("A:A"), Cells(L, "C")) > 0 Then
IndexW = Application.Match(Cells(L, "C"), Sheets("Feuil2").Range("A:A"), 0)
Sheets("Feuil2").Cells(IndexW, "B") = Cells(L, "F")
Sheets("Feuil2").Cells(IndexW, "C") = Cells(L, "G")
End If
Next L
End Sub