Dim F2 As Worksheet
Dim tablo1()
Dim tablo2()
Dim tablo3()
Sub rechercher()
Set F1 = Feuil1
Set F2 = Feuil2
tablo1 = F1.[A2].Resize(F1.[c35000].End(xlUp).Row - 1, 7).Value
tablo2 = F2.[A2].Resize(F2.[c35000].End(xlUp).Row - 1, 8).Value
ReDim tablo3(UBound(tablo1) - 1)
For i = 0 To UBound(tablo1, 1) - 1
tablo3(i) = tablo1(i + 1, 3) & "#" & tablo1(i + 1, 7) 'concat C et G de Feuil1 dans tablo3
Next i
For i = 1 To UBound(tablo2, 1)
tablo2(i, 7) = tablo2(i, 3) & "#" & tablo2(i, 6) 'concat C et G de Feuil2 dans 7e colonne
Next i
For i = 1 To UBound(tablo2, 1)
lig = Application.Match(tablo2(i, 7), tablo3, 0)
If Not IsError(lig) Then tablo2(i, 8) = tablo1(lig, 5)
Next
F2.[A2].Resize(UBound(tablo2, 1), UBound(tablo2, 2)).Value = tablo2
F2.Columns(7).ClearContents
End Sub