Affichage de message "Feuille existante"

bonjour les Excelists ;

je résume mon problème, voilà, je vien de créer une petite macro pour dupliquer une feuille "Master" avec une InputBox pour lui attribuer un nouveau nom,

Sub DupliquerMaster()

Dim NomClasse As String
NomDossier = InputBox("Nom dossier")
If NomDossier = "" Then
Exit Sub

End If
Sheets("Master").Visible = xlSheetVisible
Sheets("Master").Range("_Zonesaisie").ClearContents
Sheets("Master").Copy after:=Sheets(Sheets.Count)

Sheets("Master").Visible = xlSheetHidden

ActiveSheet.Name = NomDossier 
ActiveSheet.Range("B2").Value = NomDossier 

End Sub

ce que je cherche c'est quand je saisi un nom de feuille déjà existant, excel m'afficheras un message indiquant que le nom est déjà attribué et/ou me re-proposer la InputBox

merci d'avance

Bonjour,

Un essai ...

Sub DupliquerMaster()
Dim NomClasse As String
Dim Sh As Worksheet

    NomDossier = InputBox("Nom dossier")
    For Each Sh In Worksheets
        If Sh.Name = NomDossier Then
            MsgBox " Ce nom est déjà présent ... "
            Exit Sub
        End If
    Next Sh

    Sheets("Master").Visible = xlSheetVisible
    Sheets("Master").Range("_Zonesaisie").ClearContents
    Sheets("Master").Copy after:=Sheets(Sheets.Count)
    Sheets("Master").Visible = xlSheetHidden
    ActiveSheet.Name = NomDossier
    ActiveSheet.Range("B2").Value = NomDossier
End Sub

ric

bonjour ric, d'abord merci pour la peine de me répondre,

j'ai copié ton code mais le problème persiste toujours

Bonjour,

Pourtant le code de ric fait exactement ce que tu as demandé... Si tu ne joins pas le fichier, ça va être dur de t'aider.

Voilà