jet = Sheets("devis").Range("L9999").End(xlUp).Row + 1
Dim test As String
test = ("Jet d'eau")
Sheets("devis").Range("L" & jet).Value = test
Usinage.Hide
tusinage = InputBox("Indiquez le temps d'usinage")
jet2 = Sheets("devis").Range("M9999").End(xlUp).Row + 1
Sheets("devis").Range("M" & jet2).Value = tusinage
commentaire = InputBox("Avez-vous un commentaire à ajouter sur cette opération ?")
Comment = Sheets("devis").Range("Q9999").End(xlUp).Row + 1
Sheets("devis").Range("Q" & Comment).Value = commentaire
Select Case MsgBox("Mode de découpe ajouté à votre devis, voulez vous en rajouter ?", vbYesNo, "Validation")
Case vbNo
Sheets("Accueil").Select
Case vbYes
Sheets("Accueil").Select
End Select
End Sub
Comment faire pour que, lorsque je clique sur ma case "Yes", je revienne juste parès "usinage.hide"
