Sub rename()
Dim Ws As Worksheet, NewFeuille 'Les variables
If [A3] = "" Then MsgBox "La cellule A3 est vide ...", _
vbExclamation, "Problème...": Exit Sub 'Message A3 vide
NewFeuille = Format([A3].Value, "dd-mm-yy") 'Préparation du nom de la nouvelle feuille
For Each Ws In Worksheets 'Test si la feuille existe déjà
If Ws.Name = NewFeuille Then
MsgBox "Création de cette feuille impossible car elle existe déjà !", _
vbCritical, "Problème création feuille !!!" 'Message si la feuille existe
Exit Sub
End If
Next
ActiveSheet.Name = NewFeuille 'Nomme la feuille
End Sub