Valeur dans msgbox

Bonjour à tous
Je souhaite integrer la valeur d'une date dans un message d'une Msgbox, je n'arrive pas à mettre cette valeur dans la ligne de code , je dois manquer quelque chose .
message souhaité

ATTENTION CETTE JOURNEE du 21 novembre 2008 N'A PAS ETE VALIDEEE" Valider pour continuer"


ci joint code avant modif

Dim reponse
Dim ActivationEvents As Long
ActivationEvents = Application.EnableEvents
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect


reponse = MsgBox(" AVEZ VOUS SELECTIONNER LA BONNE DATE ?", vbYesNo + vbQuestion, "IMPORTER")
If reponse = vbNo Then GoTo 1

If Worksheets("feuil1").Range("j13") = "validation non faite" Then
'reponse = MsgBox("ATTENTION CETTE JOURNEE N'A PAS ETE VALIDEEE" & Chr(13) & "" & Chr(13) & " Valider pour continuer" & Chr(13) & " " & Chr(13), vbOKOnly + vbCritical, " IMPORTER")


If reponse = vbOK Then GoTo 1
End If





ci joint code modifier



Dim valeur
Dim reponse
Dim ActivationEvents As Long
ActivationEvents = Application.EnableEvents
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect
With Sheets("impression").Range("x1")
valeur = Format(.Value, " dddd dd mmmm yyyy")
End With



reponse = MsgBox(" AVEZ VOUS SELECTIONNER LA BONNE DATE ?", vbYesNo + vbQuestion, "IMPORTER")
If reponse = vbNo Then GoTo 1
If Worksheets("feuil1").Range("j13") = "validation non faite" Then


reponse = MsgBox("ATTENTION CETTE JOURNEE DU"&valeur,"N'A PAS ETE VALIDEEE" & Chr(13) & "" & Chr(13) & " Valider pour continuer" & Chr(13) & " " & Chr(13), vbOKOnly + vbCritical, " IMPORTER")


If reponse = vbOK Then GoTo 1
End If

Merci pour vos réponses