Sub Validation_commande()
Dim Sh As Worksheet, I As Long
If MsgBox("Voulez-vous éditer un bon de commande ?", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Demande de confirmation") = vbYes Then
For Each Sh In Sheets
If Sh.Name = "Loisir F" Or Left(Sh.Name, 1) = "U" Then
For I = 11 To 150
If Sh.Cells(I, "Q") <> "" And Sh.Cells(I, "W") = "" Then
Sh.Cells(I, "W") = Date
End If
Next I
End If
Next Sh
Call Impression_bon_de_commande
Call Enregistrement_des_quantités_commandées
End If
'
End Sub