XL 2013 Problème de dupliquation de feuille

[Muller]

bonjour ,
Je revient vers vous car je ne parvient plus a m'en sortir , j'ai une sorte de fantôme dans ma macro , je m'explique , vous trouverez en pièces jointes mon document , appuyez sur le bouton , ce dernier ouvre des onglet , jusqu’à ce moment tout va bien . Or une fois les onglets ouvert , et que je retourne dans la feuille extraction , que j'entre dans une cellule puis que j'en sélectionne une autre , une sorte d'image de fond apparait !

Quelqu'un saurais comment m'en débarrasser ?
Merci d'avance

 

[D.D.]

Hello,

Oui, c'est assez etrange.
modifie ta macro comme suit:

Sub ajout_feuilles()
    Dim nom As String, c As Range
'    Application.ScreenUpdating = False
    For Each c In Range("EXTRACTION")
        nom = c.Value
        If nom <> "" Then
    Sheets("tableau base ").Select
    Sheets("tableau base ").Copy After:=Worksheets(Worksheets.Count)
'        Sheets("tableau base ").Select
'    Cells.Select
'    Selection.Copy
'    ActiveSheet.Select
'    Range("A1").Select
'            Sheets.Add Count:=1, After:=Worksheets(Worksheets(Worksheets.Count))
'          ActiveSheet.Paste
    ActiveSheet.Name = nom
    Range("F2").Select
        End If
    Next c
End Sub

Par contre il faut ajouter un controle avant pour vérifier que le nom de l'onglet n'existe pas déjà car sinon il y a erreur.

 

[Muller]

merci beaucoup !!