Bonjour,

J'ai une macro dans un fichier excel, affecté à un bouton, qui permet de recopier la feuille en la nommant du nom indiqué dans la case G11.
Cela fonctionnait très bien, puis ce matin, la macro recopie bien la feuille, mais donne à chaque fois le nom suivant: modele(2), modele (3)...

Je n'ai pas touché au code! Seulement à la feuille excel. Le nom de mon fichier à recopier est toujours dans la case G11.
Le code est le suivant:

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub CommandButton1_Click()
 
Dim NFeuil As String
    If Range("G11") <> "" Then
        NFeuil = Range("G11")
        If FeuilExist(NFeuil) Then
            Sheets(NFeuil).Activate
            Exit Sub
        Else
            Sheets("Modele").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
            ActiveSheet.Name = NFeuil
 
        End If
    End If
 
End Sub
 
Function FeuilExist(NomFeuil As String) As Boolean
Dim a
    FeuilExist = False
    On Error GoTo Err1
    a = Sheets(NomFeuil).Range("A1").Value
    FeuilExist = True
    Exit Function
Err1:
End Function

Je ne m'y connais pas assez malheureusement pour trouver la solution moi-même. Quelqu'un peut-il m'aider svp? (j'espère que j'ai indiqué les bonnes balises)

Merci d'avance.