bonjour Temjeh
ce qui suit pour te dépanner
changer 'Feuil3' par nom de la feuille ou tu vas chercher la date
Sub Macro2()
Dim MaDate As Date, Nom As String
'changer 'Feuil3' par nom de la feuille
MaDate = Sheets('Feuil3').Range('I3').Value + 12
Nom = Day(MaDate) & '-' & Month(MaDate) & '-' & Year(MaDate)
Sheets('Model').Cells.Copy
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = Nom
End Sub
à bientôt