Sub test()
Dim wbkA As Workbook, wbkB As Workbook
Dim c As Range, i&
Set wbkA = Workbooks("Classeur2")'adapter le nom et ajouter l'extension
Set wbkB = Workbooks("Classeur3")'adapter le nom et ajouter l'extension
i = 2
For Each c In wbkA.Sheets(1).Range("A2:A" & wbkA.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
If c Like wbkB.Sheets(1).Cells(i, 1) Then
Cells(i, 1) = c
Cells(i, 2) = c.Offset(, 1)
Cells(i, 3) = wbkB.Sheets(1).Cells(i, 2)
End If
i = i + 1
Next c
End Sub