Sub RAZ_Formulaire()
'
If MsgBox("Êtes vous sur de vouloir effacer le bon de préparation ?", vbQuestion + vbYesNo, "METTRE A ZERO LE FORMULAIRE ...") = vbYes Then
Range("C5:D5,C9:D9,C10:D10,G10:H10,G9:H9,G5:H5,L5,L6,K9:L9,K10:L10").Select
Range("K10").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=6
Range("B15:D27,H15:H27").Select
Range("H15").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B32:H37,K32:K37").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=21
Range( _
"D44:E44,D46:E46,D48:E48,D50:E50,D52:E52,G44:H44,G46:H46,G48:H48,G50:H50,G52:L52,K44:L44,K46:L46,K48:L48,K50:L50,B55:L59,D61:E61,J61:L61,D63:L68" _
).Select
Range("D63").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-39
Range("C5:D5").Select
ActiveWindow.SmallScroll Down:=-9
'Vide les checkbox
Application.Goto Reference:="Zone_Checkbox"
ActiveCell.FormulaR1C1 = "TRUE"
Range("A1").Select
End If
End Sub