Problème de paramètre excel pour macro

Bonjour,

Voici la macro qui pose problème sur mon potse....car elle marche sur d'autres PC:

Private Sub crea_Click()
Crea_supp.Hide

Dim a As Integer
Dim b As Long

b = numof_crea
a = 2
Do
a = a + 3
Loop Until Application.Cells(a, 1) = Empty

Cells(a, 1).Value = b
Cells(a, 2).Value = date_depose
Cells(a, 3).Value = date_retour
Cells(a, 3).Select

date_depose = Date
For x = 0 To 5
With ActiveCell.Offset(0, x)
.Value = Format(date_depose + x, "ddd-dd/mm/yy")
.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 15
End With
Next x

Unload Crea_supp
End Sub

date_depose etant le nom d'un outil contôle DTPicker, quand je lance ma macro elle stop sur Date en mettant le message d'erreur suivant: "Projet ou bibliotèque introuvable.....et elle marche sur un autre PC, j'ai vérifié les macro complémentaire ainsi que les référence avec l'autre PC et les paramètres sont les memes....si je supprime la ligne date_depose= date la macro s'arete et affiche le meme message sur x si je supprime x elle s'arete sur Format

Quelqu'un aurait il une idée sur la source de mon problème?

Merci