Besoin d'aide (formule ou macro)

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