Sub test4()
Dim ws As Worksheet, Nnomf As Range
Set Nnomf = Sheets(1).[A1]
If IsEmpty(Nnomf) Then
MsgBox "Attention, la cellule A1 est vide, veuillez saisir le nouveau nom en A1", vbCritical
Exit Sub
End If
For Each ws In Worksheets
If ws.Name = Nnomf Then
MsgBox "Une feuille avec le nom : " & Nnomf.Value _
& Chr(13) & "existe déjà dans ce classeur." _
& Chr(13) & Chr(13) & "Saisir un nouveau nom dans la cellule : " _
& Nnomf.Address(False, False), vbInformation
Exit Sub
End If
Next
ActiveSheet.Name = Nnomf
End Sub