Sub SauvegardeFeuille4()
Dim NOM1 As String
NOM1 = ThisWorkbook.Sheets("utilitaires").Range("a1")
'ActiveSheet.Unprotect
'ActiveSheet.Unprotect Password:="1234"
ThisWorkbook.Sheets("utilitaires").Copy
For Each cel In ActiveWorkbook.ActiveSheet.UsedRange
cel.Formula = cel.Value
Next cel
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="D:\rapport d'axe\" & NOM1 & ".xls"
If Err <> 0 Then MsgBox "impossible de trouver dossier d'enregistrement"
ActiveWorkbook.Close
'ActiveSheet.Protect Password:="1234"
MsgBox ("Enregistrement de la feuille utilitaires terminé")
End Sub