Sub MaMaquereau()
Dim C1 as String, C2 as String
Dim F1 as String, F2 as String
Dim LastRow as Long
'Je suppose que les noms de Classeurs sont classeur1 et classeur2, à modifier ci dessous :
C1 = "Classeur1.xls"
C2 = "Classeur2.xls"
'Je suppose également que les noms de Feuilles sont Feuil1 et Feuil1 dans chaque classeur :
F1 = "Feuil1"
F2 = "Feuil1"
'Si les 2 classeurs sont ouverts :
With Workbooks(C1).Sheets(F1)
.Columns("B:C").Insert Shift:=xlToRight
Workbooks(C2).Sheets(F2).Range("A:A").Copy .Range("B1")
LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("C1:C" & LastRow).FormulaR1C1 = "=IF(ISERROR(MATCH(RC[-1],R1C[-2]:R" & LastRow & "C[-2],0)),0,1)"
End With
End Sub