Remplacer une feuille invisible si elle existe

Bonjour,

J'ai un petit soucis avec les feuilles masquées!

J'ai un code qui copie une feuille avec renommage automatique, donc j'ai mis un msgbox indiquant si on souhaite remplacer la feuille masquée ! mais j'ai une erreur sur cette ligne :

 sheet = "C_" & wh.Name

voici le bout de code :

Set wh = Worksheets(ActiveSheet.Name)
 If Feuil_Exist(ThisWorkbook.Name, "C_" & wh.Name) = True Then
    ans = MsgBox("la feuille " & "C_" & wh.Name & " existe déjà voulez-vous la remplacer?", vbExclamation + vbYesNo, "Message Box Title")
     If ans = vbYes Then
     sheet = "C_" & wh.Name
       If sheet.Visible = False Then
        Debug.Print sheet.Name
        sheet.Delete
End If
  ActiveSheet.Copy After:=wh
          ActiveSheet.Name = "C_" & wh.Name
End If
End If

Merci pour votre aide

Tu as inversé Le ans Yes et no il me semble.

edlede a écrit :

Tu as inversé Le ans Yes et no il me semble.

bon si j'ai bien compris j'ai changé cette partiecomme suite :

 If ans = vbNo Then
 Exit Sub
 Else
     sheet = "C_" & wh.Name
       If sheet.Visible = False Then
        Debug.Print sheet.Name
        sheet.Delete
       End If

Mais l'erreur "objet ou variable non définie avec le bloc with !!" pointe toujours sur :

sheet = "C_" & wh.Name

Tu remettre le code en entier ou mieux un fichier exemple