Bonjour à tous,
Voilà un autre code, si ta cellule est au format dd/mm/yyyy.
Je préfère utiliser left et mid que day et month car ces derniers renvoient 4 au lieu de 04..
Sub cree_feuille()
Dim cell As Range
Dim nom As String
Set cell = sheets("Feuil1").Range("A1") '''à adapter
If Not IsDate(cell) Then Exit Sub "test si c'est une date
nom = Left(CStr(cell), 2) & Mid(CStr(cell), 4, 2) & Year(cell)
For i = 1 To Sheets.Count
If Sheets(i).Name = nom Then
MsgBox "La feuille " & nom & " exite déjà", vbOKOnly
Exit Sub
Else: Sheets.Add.Name = nom
End If
Next i
End Sub
A+++