Copie lignes sous condition date

Bonjour à tous,

Je mets, ou plutôt j'essai de mettre en place un système de gestion de prospection. Avec Access, ce serait les doigts dans le nez, mais là, pas de pot, l'entreprise pour laquelle je travail n'a pas access. Je me rabats donc sur mes quelques connaissances d'Excel, mais c'est pas gagné!
J'ai un fichier Escel avec une base CLIENTS, une base prospection BASE , et je souhaiterai avoir sur une feuille RECAP, qui me reprennent les élements d'un client selectionné par liste déroulante avec une liste de toutes les actions de prospection qui ont eu lieu.
Une autre feuille qui selon 2 dates (date du ... au...)saisies, me récape la liste des relances.

Je joins un extrait du fichier, j'espère que je serais assez clair.

le bout de code macro, mais y'a un souci :

Private Sub CommandButton1_Click()
Dim j As Long
Dim cellule As Range

Dim lidep1 As Long
Dim nomfeuille1 As String
Dim col1 As String

Dim lidep2 As Long
Dim nomfeuille2 As String
Dim col2 As String

Dim date1 As Date
Dim date2 As Date

Dim dl1 As Long
Dim dl2 As Long
Dim dl3 As Long

'************************************
nomfeuille1 = "BASE"
col1 = "b"
lidep1 = 2
nomfeuille2 = "RELANCE"
col2 = "a"
lidep2 = 3
'************************************
date1 = Format(Cells(1, d), "dd/mm/yyyy")
date2 = Format(Cells(1, f), "dd/mm/yyyy")

dl1 = Sheets(nomfeuille2).Range(col2 & "65536").End(xlUp).Row + 1

With Sheets(nomfeuille1)
For Each cellule In .Range(col1 & lidep1 & col1 & .Range(col1 & "65536").End(xlUp).Row)
If cellule.Value > date1 And cellule.Value < date2 Then
dl3 = Sheets(nomfeuille2).Range(col2 & "65536").End(xlUp).Row + 1
For j = 1 To 9 ' colonnes à copier
Sheets(nomfeuille2).Cells(dl3, j).Value = .Cells(cellule.Row, j).Value
Next j
dl2 = cellule.Row
End If
Next cellule
End With
End Sub



merci beaucoup pour votre aide.