Sub RechercheAgent()
Dim dateRef As Date
Dim c As Range, cDest As Range, cellDate As Range
Dim adr1 As String
With Sheets("Feuil2")
dateRef = .Range("D2")
Set cDest = .Range("D4")
'Nettoyage de la colonne resultat à partir de la cellule D4
.Range(cDest, cDest.End(xlDown)).ClearContents
End With
With Sheets("Feuil1").Range("C:C")
Set c = .Find(what:=Sheets("Feuil2").Range("C4"), LookIn:=xlValues)
If Not c Is Nothing Then
adr1 = c.Address
Do
Set cellDate = c.Offset(, -2)
If cellDate >= dateRef And cellDate <= dateRef + 10 Then
cDest = cellDate
Set cDest = cDest.Offset(1)
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adr1
End If
End With
End Sub