Sub query_USM()
Dim F1 As Range
Dim F2 As Range
Dim i As Integer
Dim j As Integer
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Set F1 = Sheets("Résultat").Range("C2:C" & DernLigne)
Set F2 = Sheets("EOL").Range("D2:D" & DernLigne)
For i = 1 To F1.Rows.Count
For j = 1 To F2.Rows.Count
If F1(i, 1).Value = F2(j, 1).Value Then
Sheets("EOL").Range("Z" & j).Value = "Ok"
End If
Next j
Next i
Set F1 = Nothing
Set F2 = Nothing
j'ai parlé trop vite ça ne marche pas !!!
elle est ou ma boulette SVP ?