Dim LePath As String, LeNom As String, fichier As String, Dossier As String, chemin As String
On Error GoTo fin
'Enregistrement de la feuille
LePath = "C:\Users\XXXX\Documents\Onglets\"
ActiveSheet.Copy
LeNom = [B12] & " Onglet du " & Format([H5], "ddmmyyyy") & ".xlsx"
ActiveWorkbook.SaveAs LePath & LeNom
ActiveWorkbook.Close
'ETC......