Bonjour,
Une nouvelle proposition.
Cdlt.
Sub Creation()
Dim J As Long
Dim Ws As Worksheet
Dim sName As String
Application.ScreenUpdating = False
Set Ws = ActiveSheet
For J = 3 To Ws.Range("A" & Rows.Count).End(xlUp).Row
sName = Format(Ws.Cells(J, 1), "dd-mm-yyyy")
If FeuilleExiste(sName) = False Then
Sheets("Base").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = sName
End If
Next J
Ws.Activate
End Sub