Erreur 91 sur recherche n° colonne

[Yopub]

Bonjour le forum,
Depuis plusieurs heures je cherche à comprendre le pourquoi de ce message d'erreur.
Voici mon code (en rouge ce qui crée l'erreur 91):

Dim NOMCONGES As String
Dim Lg As Integer
Dim Coldeb As Integer, Colfin As Integer
Dim DateDeb As Long, DateFin As Long

Lg = Sheets("Calendrier").Range("A9:A41").Find(NOMCONGES, lookat:=xlWhole).Row
DateDeb = CLng(Range("Début").Value)
=> Coldeb = Sheets("Calendrier").Range("B7:NC7").Find(DateDeb, lookat:=xlWhole).Column
DateFin = CLng(Range("Fin").Value)
Colfin = Range("Dates").Find(DateFin, lookat:=xlWhole).Column

En clair, j'ai une date inscrite dans une cellule nommée, que je transpose en n° série. Puis je recherche cette valeur dans la ligne 7, des colonnes B à NC. J'aimerai trouver la colonne contenant le n° de série cherché.
J'arrive à trouver la ligne Lg pour la valeur NOMCONGES, mais cela ne fonctionne pas avec la colonne.
Pourquoi ???
Vous l'avez sans doute compris, j'ai un tout petit niveau en VBA...
Merci pour votre aide

 

[M12]

Bonjour,

Dim DateDeb As Long, DateFin As Long

Si c'est une Date, c'est pas un entier

Dim DateDeb As Date, DateFin As Date

 

[Yopub]

Merci M12, mais cela ne change rien à l'erreur "Variable objet ou variable de bloc with non définie".
De plus, du fait que je transpose la date "Début" en n° de série que je renomme en DateDeb, je pensais que cette variable pourrait être définie en Long et non en Date...
Une autre solution ?
Par avance merci

 

[Bebere]

bonjour
testé sous excel2010

Sub test()
Dim DateDeb As Date, Coldeb As Long
DateDeb = "5/1/2017"
Coldeb = Sheets("Calendrier").Range("B7:NC7").Find(DateDeb, LookIn:=xlFormulas, lookat:=xlWhole).Column
'ou
Dim DateDebut As Long
DateDebut = CDate("5/1/2017")
Sheets("Calendrier").Range("B7:NC7").NumberFormat = 0
Coldeb = Sheets("Calendrier").Range("B7:NC7").Find(DateDebut, LookIn:=xlValues, lookat:=xlWhole).Column
Sheets("Calendrier").Range("B7:NC7").NumberFormat = "dd-mm-yyyy"
End Sub