Sub Test()
Set c = Workbooks("B-1.xlsx").Sheets("Data").Columns("A:A").Find(ThisWorkbook.Sheets("Feuil1").Range("A2").Value)
If Not c Is Nothing Then ThisWorkbook.Sheets("Feuil1").Range("A2").Resize(1, ThisWorkbook.Sheets("Feuil1").Range("A2").CurrentRegion.Columns.Count).Copy c
End Sub