Sub Copie()
Dim Tablo1(), Tablo2(), fin As Long, i As Long
fin = Sheets("recherche").Range("A2").End(xlDown).Row
ReDim Tablo1(2, fin - 3)
ReDim Tablo2(fin - 3)
For i = 0 To fin - 3
Tablo1(1, i) = Sheets("recherche").Range("A" & i + 3).Value 'colonne A
Tablo1(2, i) = Sheets("recherche").Range("B" & i + 3).Value 'colonne B
' Debug.Print Tablo1(1, i) & ":" & Tablo1(2, i)
Tablo2(i) = Sheets("Feuil1").Cells(1, i + 2).Value
' Debug.Print Tablo2(i)
Next
For i = 0 To fin - 3
For j = 0 To fin - 3
If Tablo1(1, i) = Tablo2(j) And Tablo1(2, i) <> vbNullString Then
Sheets("Feuil1").Cells(2, j + 2) = Tablo1(2, i)
End If
Next
Next
End Sub