Rajout de Date par Fenetre de saisie

Bonjour

J'essaie de créer un système de gestion de planning pour ma société, pour cela j'apprend doucement à utiliser les macros pour améliorer mes tableurs.

Actuellement une colonne de tableau récapitule tous les jours fériés à prendre en compte et pour remplir cette colonne j'utilise une fenetre de saisie avec calendrier.

Mon problème est le suivant :

Comment faire pour que la saisie soit refusée si une date similaire se trouve déjà dans la colonne ?

voici les lignes de la Sub :

Private Sub CommandButton1_Click()

With Sheets("Paramètres")

For Each cell In .Range("F5:F" & .Range("F65536").End(xlUp).Row)

If Not cell = DateSaisie Then

' Mise en place des valeurs saisies

MsgBox "Saisie Ok"

Exit For

Else

MsgBox "Doublon"

Exit For

End If

Next

End With

End Sub

DateSaisie étant la date saisie dans la fenetre par le calendrier

La colonne ou se trouvent les dates est la colonne F dans la feuille Paramètres

J'ai volontairement simplifier les opérations à effectuer selon les cas par des MsgBox afin de raccourcir l'exemple.

Donc avec cette macro, la réponse est toujours "Saisie Ok"

Qqun y voit l'erreur ?

Merci à tous

Bonjour

Sans fichier

A tester

Private Sub CommandButton1_Click()
  With Sheets("Paramètres")
    If Application.CountIf(.Range("F5:F" & .Range("F65536").End(xlUp).Row), DateSaisie) = 0 Then
      MsgBox "Saisie Ok"
    Else
      MsgBox "Doublon"
    End If
  End With
End Sub

Merci je testes ta proposition, promis la prochaine fois je mets un fichiers en pj !