Option Explicit
Sub Copie_et_Nomme()
Dim Date_C As String
Dim Num_C As String
Sheets("Formulaire").Unprotect
Date_C = Sheets("Formulaire").Cells(12, 2)
Num_C = Sheets("Formulaire").Cells(12, 5)
Sheets("Formulaire").Copy After:=Sheets(Sheets.Count)
Cells(12, 2) = Cells(12, 2)
ActiveSheet.Name = Format(Date_C, "yyyymmdd") & "_" & Format(Num_C, "000")
Sheets("Formulaire").Activate
Range("A27:G64").ClearContents
Cells(12, 5) = Cells(12, 5) + 1
Range("B12").Select
Sheets("Formulaire").Protect
Call TriFeuilles
End Sub