Sheets("Donnée").Range("B3") = DatePart("ww", Date, 2, 2)
reponse = MsgBox(" Voulez vous imprimer vos documents?", vbYesNo, "QUESTION")
If reponse = vbYes Then
ThisWorkbook.PrintOut from:=2, To:=19, Copies:=1, Collate:=True
End If
If reponse = vbNo Then
End
End If