code vb date a date

salut mes amis

avec votre aide j'ai pu obtenir le code qui fait l'extraction entre deux dates mais seulement quand il est seul dans un classeur il s'excute a merveille mais quand je le met dans mon application nommée "solution" pour pouvoir consulter les enregistrements de la Feuilles "BD" il marchera pas je ne sais pas pourquois ! j'ai tout essayer

aidez moi je sais que je peut compter sur vous
merci
Private Sub CommandButton1_Click()
Dim startRow As Integer, stopRow As Integer, d1 As Range, d2 As Range

On Error GoTo message

If StartDate = "" Then End
StartDate = Format(StartDate, "dd/mm/yyyy")
If StopDate = "" Then End
StopDate = Format(StopDate, "dd/mm/yyyy")

If Range("a2").Value >= Me.StartDate.Value Or Range("a2").Value <= Me.StopDate.Value Then

Set d1 = Sheets("BD").Range("A:A").Find(CDate(Me.StartDate.Value), LookIn:=xlValues, lookat:=xlWhole)

If Not d1 Is Nothing Then startRow = d1.Row

Set d2 = Sheets("BD").Range("A:A").Find(CDate(Me.StopDate.Value), LookIn:=xlValues, lookat:=xlWhole)

If Not d2 Is Nothing Then stopRow = d2.Row

Sheets("BD").Range(Cells(startRow, 1), Cells(stopRow, 5)).Copy _
Destination:=Sheets("CONSULT").Range("A15")
End
message:
MsgBox "Date non valide verifier votre saisie svp"
End If

End Sub

le message d'erreur "Objet variable ou variable objet de bloc with non definie"
au niveau de " d1.row et d2.row"