Private Sub CommandButton48_Click()
Select Case MsgBox("Attention cette Commande remet toute la page à zéro" & vbCrLf & "Voulez-vous Continuez ??", vbYesNo + vbQuestion, "pour info")
Case vbYes
'procédure si click sur Oui
For x = 1 To 104 'je vide les textbox
Devis.Controls("textbox" & x).Value = ""
Next
For y = 1 To 5 'je vide les checkbox
Devis.Controls("checkbox" & x).Value = ""
Next
For Z = 1 To 57 'je vide les combobox
Devis.Controls("combobox" & x).Value = ""
Next
Case vbNo
'procédure si click sur Non
Close
End Select
End Sub