XL 2021 Dupliquer une feuille

[netparty]

Bonjour à tous

J'utilise ce code :

Sub Dupliquer_feuille()

'**** Dupliquer la feuille active
 
        ActiveSheet.Copy before:=Sheets("RENDEMENT CHANTIER")
        
'*********************************************************************
'   Renome la feuille
'*********************************************************************
'   Oblige l'utilisateur d'entrer un nom

    Dim NomFeuil As Variant
reponse:

    NomFeuil = InputBox("Veuillez définir le nouveu nom de l'onglet")

    If NomFeuil = "" Then GoTo reponse
    ActiveSheet.Name = NomFeuil
 
 
End Sub

Pour dupliquer les feuilles de mon classeur est-il possible d'avoir un avertissement si le nom d'une feuille existe déja ?

Merci

 

[sousou]

Bonjour
Tu peux ajouter ceci après le premier controle( si "")
for each f in sheets
if f.name=NomFeuil then
Msgbox " cette feuille existe déjà!"
exit sub ou goto reponse
end if
next

 

[netparty]

Bonjour
Tu peux ajouter ceci après le premier controle( si "")
for each f in sheets
if f.name=NomFeuil then
Msgbox " cette feuille existe déjà!"
exit sub ou goto reponse
end if
next

Bonjour @sousou

Merci c'est nickel