Recherche valeur dans une liste

Bonjour

je débute sur vba. ' Je cherche à attribuer un nombre d'heures à HTS_Lun si, Datejour1 est comprise entre la DateDéb et la DateFin et si elle ne correspond pas à une date de la liste ZoneFerm présente sur une autre feuille. Mais je n'arrive pas à trouver une code qui fonctionne

Function HTS_Lun(DateDéb As Date, DateFin As Date, Datejour1 As Date) As Integer
 Dim ZoneFerm As Range
Set ZoneFerm = .Find(Datejour1)
If Nothing Then
If (DateDéb <= Datejour2 And DateFin >= Datejour2) Then
HTS_Lun = 7
Else
HTS_Lun = 0
 End If

End Function

Merci de votre aide.

Bonsoir et bienvenu(e)

A tester

Function HTS_Lun(DateDéb As Date, DateFin As Date, Datejour1 As Date) As Integer
  Application.Volatile
  If Application.CountIf(Range("ZoneFerm"), Datejour1) = 0 Then
    If Datejour1 >= DateDéb And Datejour1 <= DateFin Then
      HTS_Lun = 7
    End If
  End If
End Function

Si cela ne convient pas il faudra ton fichier

Bonjour

Un grand merci pour cette aide rapide et efficace. En effet, j'ai testé ce matin et ça semble fonctionner.

SUPER !

Bonne journée à toi Banzai64