Option Explicit
Sub test()
Dim dL1 As Integer, dL2 As Integer
Dim i As Integer, j As Integer
dL1 = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
dL2 = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
With Feuil1
For i = 1 To dL2
For j = 2 To dL1
If .Cells(j, 3).Value = Feuil2.Cells(i, 1).Value Then
.Cells(j, 7).Value = 1
Else
.Cells(j, 8).Value = 0
End If
Next j
Next i
End With
MsgBox "Procédure terminée!", vbInformation
End Sub