Sub Saisie()
Dim r As Byte
Dim NomFichier$
Const NomChemin$ = "\\Serveur\Partages\Gestion\
r = MsgBox("Voulez vous lancer l'effacement ?", vbYesNo, "Effacement ?")
If r = 6 Then
Sheets("commande").Unprotect Password:="LN"
Union(Cells(2, 2), Range("H9:U48")).ClearContents
Sheets("commande").Protect Password:="LN"
NomFichier = "HC" & " " & Cells(1, 2).Value & ".xls"
r = MsgBox("Voulez vous enregister le classeur sous le nom : " & NomFichier, vbYesNo, "Enregistrement ?")
If r = 6 Then ActiveWorkbook.SaveAs (NomChemin & NomFichier)
End If
End Sub