Sub CréerEnregistrement()
Dim TRA As Worksheet
Dim INF As Worksheet
Dim A$
Dim maDate As Date
Application.DisplayAlerts = False
Set INF = Worksheets("Infos")
Dossier = INF.Range("B1").Value
ChDir Dossier
ActiveSheet.Unprotect Password:="****"
maDate = #3/29/1956# 'je n'ai pas compris où vous péchez la date, aussi je la fabrique
A$ = Format(maDate, "yyyymmdd")
Set TRA = Worksheets("Trame")
TRA.Range("C3").Value = maDate
INF.Range("D2").Value = TRA.Range("C5").Value
INF.Range("D2").Replace What:=" ", Replacement:="_"
TRA.Range("B2").Value = Dossier & "Service" & INF.Range("B2") & "_" & "IGP_Bâtiment" & TRA.Range("C4").Value & "_" & _
INF.Range("D2").Value & "_" & A$ & ".xls"
Worksheets("Questions").Delete
ActiveSheet.Protect Password:="****", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:=TRA.Range("B2").Value
msg = MsgBox("L'IGP a été enregistrée sous le nom : " & TRA.Range("B2").Value, vbInformation, "IGP enregistrée !")
End Sub