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 = Range("C2:C" & DernLigne) 'colonne C 2014
Set F2 = Range("D2:D" & DernLigne) 'colonne D 2015
For i = 1 To F1.Rows.Count
For j = 1 To F2.Rows.Count
If F1(i, 1).Value = F2(j, 1).Value Then
Range("Z" & j).Value = "Ok"
End If
Next j
Next i
Set F1 = Nothing
Set F2 = Nothing
End sub
Ça devrait écrire'ok si le client 2015 était déjà présent en 2014
Si tu adaptes un peu ça devrait le faire
Par contre je'suis sur ma r tablette alors y a peut être u'e ou 2 fautes de frappe