Ajouter date picker popup

Bonjour Monsieur Michel
merci d'avance pour votre réponse,mon probléme que j'ai un formulaire de saisi,et quel code dois-je effectué et ou puis-je lemettre?
je veux ajouter le calendar dans le textbox(5) et (6)
le code de mon formulaire est:
Private Sub CommandButton1_Click()
'double click bouton Ajouter
If ComboBox1.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Nom/Prénom' "
Else

Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
Worksheets("source").Select
ligne = Sheets("source").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = TextBox1.Value
Cells(ligne, 2) = ComboBox1.Value
Cells(ligne, 3) = TextBox2.Value
Cells(ligne, 4) = TextBox3.Value
Cells(ligne, 5) = TextBox4.Value
Cells(ligne, 6) = CDate(TextBox5.Value) '''''''''''''''''''''''''''''''''''''''''''''''''''''' ICI """""""""""""""""""""""""""""""""
Cells(ligne, 7) = CDate(TextBox6.Value) '''''''''''''''''''''''''''''''''''''''''''''''''''''' ICI """""""""""""""""""""""""""""""""
Cells(ligne, 8) = TextBox7.Value
Cells(ligne, 9) = TextBox8.Value
Cells(ligne, 10) = TextBox9.Value
Cells(ligne, 11) = TextBox10.Value
Unload reservation
reservation.Show
Else
End If
End If
End Sub

un textbox recoit uniquement du texte le calendrier est un contrôle au m^me titre qu'un textbox

soit on marque la date "à la main" soit on remplace les textbox par ces calendriers

Vu sur ce site indispensable
https://silkyroad.developpez.com/VBA/ControlesUserForm/