Saisie date dans textbox

Bonjour,

Je suis en train de créer un programme sous excel (vba). Malheureusement je bute sur un point : dans le formulaire ci-joint, j'aimerai que pour la date de réservation, la cellule n'accepte que le format date et qu'un message apparaisse si la date saisie est inférieure à la date actuelle. Il faudrait également qu'après ce message, l'utilisateur puisse remplir à nouveau cette cellule avant de valider.

Pourriez-vous m'aider concernant ce problème svp ?

Merci d'avance,


Ci-dessous, voici l'algorithme du bouton nouveau client qui sert de validation.

Private Sub CommandButton1_Click()

'Pour le bouton Nouveau contact
    Dim M As Integer
    Dim tecli As Single
           
    datereserv = Format(datereserv.Value, "dd/mm/yyyy")
 
    If datereserv < Now Then
MsgBox ("La date saisie ne peut pas être inférieure à la date d'aujourd'hui")
datereserv = ""

Else
datereserv = datereserv

End If
     
    If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout ") = vbYes Then
    
        'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
        M = Sheets("vacanciers").Range("A3335").End(xlUp).Row + 1
                   
        Sheets("vacanciers").Range("B" & M).Value = nomcli

        Sheets("vacanciers").Range("C" & M).Value = adrcli

        Sheets("vacanciers").Range("D" & M).Value = payscli

        Sheets("vacanciers").Range("E" & M).Value = telcli

        Sheets("vacanciers").Range("F" & M).Value = mailcli

        Sheets("vacanciers").Range("G" & M).Value = nbaccomp

               
        Sheets("vacanciers").Range("H" & M).Value = animalyes
        Sheets("vacanciers").Range("H" & M).Value = animalno

        Sheets("vacanciers").Range("I" & M).Value = elecyes
        Sheets("vacanciers").Range("I" & M).Value = elecno
        
        Sheets("vacanciers").Range("J" & M).Value = codeloc

        Sheets("vacanciers").Range("K" & M).Value = datereserv
                
        Sheets("vacanciers").Range("L" & M).Value = nbnuit
               
                       
    End If
    
       
    Dim num As Integer
    Dim Cellule As Range
    Sheets("vacanciers").Select
     num = Application.Max(Columns("A")) + 1
     Set Cellule = Columns("A").Find("", Sheets("vacanciers").Range("A1"))
     Cellule = num
     
     
    If animalyes.Value = True Then
       Sheets("vacanciers").Range("H" & M).Value = "Oui"
    Else
    If animalno.Value = True Then
        Sheets("vacanciers").Range("H" & M).Value = "Non"
        
    End If
    End If
    
     If elecyes.Value = True Then
       Sheets("vacanciers").Range("I" & M).Value = "Oui"
    Else
    If elecno.Value = True Then
        Sheets("vacanciers").Range("I" & M).Value = "Non"
    End If
    
    End If
    'on cache le formulaire
saisie_clients.Hide
    
    Unload Me
    End Sub