XL 2019 Messagebox ne s'affiche pas

  Sub InitialisationImportation()

'  Workbooks.Open Filename:="C:\Users\Utilisateur\Desktop\Banque.xlsx"
'        With Workbooks("banque.xlsx").Worksheets("banque")
'
'            DateDebutBanque = .Range("B1").Value
'            DateFinBanque = .Range("C1").Value
'
'        End With
       
        reponse = MsgBox("Votre banque vous propose l'importation de vos opérations entre le" & DateDebutBanque & " et le " & DateFinBanque & " Ces dates vous conviennent-elles ?   ", vbYesNoCancel, SelectionDates)

   

  End Sub

Sub Cash_Machine()
DateDebutBanque = Format(DateSerial(1968, 5, 22), " dd/mm/yyyy")
DateFinBanque = Format(DateSerial(1969, 7, 20), " dd/mm/yyyy")
Message = "Votre banque vous propose l'importation de vos opérations entre le"
Message = Message & DateDebutBanque & " et le" & DateFinBanque & Chr(13)
Message = Message & Chr(13) & "Ces dates vous conviennent-elles ?"
reponse = MsgBox(Message, vbYesNoCancel, "SelectionDates")
Select Case reponse
Case 6
MsgBox "Vous avez raison! Ces dates sont spéciales!", vbExclamation
Case 7
MsgBox "Cherchez ces dates sur le net et vous comprendrez que vous avez eu tort de répondre Non", vbCritical
Case 2
MsgBox "Cette annulation est irréversible!"
End Select
End Sub