MsgBox pour nommé une feuille de calcul

Tu m'a devancé, en effet j'utilise le même code que toi mais le format n'est visiblement pas bon je suppose...

sous quel format tu rentres ta date?
jj/mm/AAAA ou
JJ.mm.AAAA
ou?

Disons JJ/MM

J'ai reussi a faire ça.

Jour = (InputBox("Selectionner la date de la feuille au format JJ-MM", "DATE DE LA FEUILLE"))
Sheets("Feuil1").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Sheets(Sheets.Count).Name = Format(Jour, "dd-mm")

Mais pas avec le format DD/MM je n'y arrive pas.

Mais ça ce n'est pas grave, c'est possible de faire un code qui, si la réponse ne correspond pas au format, donne un code d'erreur (de mon choix) et redonne l'input box en boucle tant que la réponse n'est pas satisfaisante ?

tu ne peux pas faire rentrer le symbole / dans le nom d'une feuille.
Tu peux aussi faire ca :

do while feuille = ""
feuille = InputBox("Merci d'indiquer le nom de la feuille", "Nom de la feuille")
loop

' en gros tu peux écrire ton format date DD/mm, le nom de ta feuille deviendra DD-MM
test = feuille
feuille = ""
do while len(test) >0
if left (test,1) <> "/" then
feuille = feuille & left(test,1)
else
feuille = feuille &"-"

end if
test = right(test,len(test)-1)
loop

Sheets(Sheets.Count).Name = feuille

Okay mais moi j'ai fait plus simple, j'ai mis :
If Not IsDate(Jour) Then GoTo 1

Qui transforme 24/08 en 24-08 aussi, mais mon soucis c'est que si je rentre une valeur fausse, il va m'afficher une erreur d'execution VBA. Donc je voudrais qu'a la place de cette erreur, il y ai un retour vers la inputbox en boucle tant que la réponse donné ne correspond pas au bon format.

Il y a aussi une erreur si le nom choisi est déjà pris, je voudrais aussi changer le code d'erreur d'execution par mon propre code d'erreur avec un retour vers l'inputbox !

Code actuel :

Dim Jour As Date
1         Jour = (InputBox("Selectionner la date de la feuille", "DATE DE LA FEUILLE"))
        If Not IsDate(Jour) Then GoTo 1
        Sheets("Feuil1").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
        Sheets(Sheets.Count).Name = Format(Jour, "dd-mm")

Je vais testé ton code que tu m'a concocté merci pour ton aide !

PS les erreurs sont les suivantes :
Erreur d'excution 13 : donné de l'inputbox vide ou incompatible (par exemple 24/24)
Erreur d'excution 2004 : Nom déjà pris

Possible de les contournés ?