Sub Comparaison1()
Set sheet1 = ThisWorkbook.Sheets("EXTRACTION")
Set sheet2 = ThisWorkbook.Sheets("A ENLEVER")
Ecol_no = 2
Erow_no = 2
Do While Not IsEmpty(sheet1.Cells(Erow_no, Ecol_no).Value)
Acol_no = 1
Arow_no = 1
flag_found = "N"
Do While Not IsEmpty(sheet2.Cells(Arow_no, Acol_no).Value)
If (sheet1.Cells(Arow_no, 2).Value = sheet2.Cells(Erow_no, 1).Value) Then
flag_found = "Y"
Exit Do
End If
Arow_no = Arow_no + 1
Loop
If (flag_found = "N") Then
Worksheets("EXTRACTION").Cells(Erow_no, 10).Value = "Oui"
Else: Worksheets("EXTRACTION").Cells(Erow_no, 10).Value = "Non"
End If
Erow_no = Erow_no + 1
Loop
End Sub