NbLignes = 500
For i = 8 To NbLignes
trouv = ""
if Application.countif(Worksheets("PendingMonitor").Range("C7:C3500"),Range("AA" & i).Value) >0 then
trouv = Application.Index(Worksheets("PendingMonitor").Range("C7:C3500"), _
Application.Match(Range("AA" & i).Value,Worksheets("PendingMonitor").Range("C7:C3500"), 0))
end if
If trouv = "" Then
Range("AE" & i).Value = Range("B" & i).Value
Else
Range("AE" & i).Value = Worksheets("PendingMonitor").Range("C" & trouv).Value
End If
Next i