Bonjour le forum

Le code ci-dessous me permet de créer de nouveaux utilisateurs.
Lorsqu'un utilisateur est crée, cela doit entrainer l'ajout de 2 feuille automatiquement avec renommation de ces nouvelles feuilles.
Voici la partie du code qui gère la création de nouvelles feuilles:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sheets("INFO").Copy after:=Sheets(3)
    On Error GoTo nomExistant
    ActiveSheet.Name = DEST
    On Error GoTo 0
    f.Activate
    '-----
    Sheets("ADMIN").Copy after:=Sheets("ADMIN")
    On Error GoTo nomExistant
    ActiveSheet.Name = "TBC" & DEST
    f.Activate
    Unload Me
Je ne sais pas mais il ne fonctionne pas comme je veux.
La feuille "INFO" est dupliquée mais il n'est pas automatiquement renommé.
La feuille "ADMIN" ne se duplique pas.
Merci de m'aider sachant que le code intégrale est le suivant:
Code : 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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub CommandButton2_Click()
 
'cette macro sert à alimenter la feuille centralisation
'Sub Report_mensuel()
    Dim O As Worksheet 'déclare la variable O (Onglet)
    Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
    Dim DEST1 As Range
    Dim DEST2 As Range
    Dim DEST3 As Range
    Dim DEST4 As Range
    Dim DEST5 As Range
    Dim DEST6 As Range
    Dim DEST7 As Range
    Set O = Worksheets("PARAMETRE") 'définit l'onglet O
    Set f = ActiveSheet
 
    'définit la cellule de destination DEST (B3 si B3 est vide, sinon, la première cellule vide de la colonne B)
    Set DEST = IIf(O.Range("BM3").Value = "", O.Range("BM3"), O.Cells(Application.Rows.Count, 65).End(xlUp).Offset(1, 0))
    Set DEST1 = IIf(O.Range("BN3").Value = "", O.Range("BN3"), O.Cells(Application.Rows.Count, 66).End(xlUp).Offset(1, 0))
    Set DEST2 = IIf(O.Range("BO3").Value = "", O.Range("BO3"), O.Cells(Application.Rows.Count, 67).End(xlUp).Offset(1, 0))
    Set DEST3 = IIf(O.Range("BP3").Value = "", O.Range("BP3"), O.Cells(Application.Rows.Count, 68).End(xlUp).Offset(1, 0))
    Set DEST4 = IIf(O.Range("BQ3").Value = "", O.Range("BQ3"), O.Cells(Application.Rows.Count, 69).End(xlUp).Offset(1, 0))
    Set DEST5 = IIf(O.Range("BR3").Value = "", O.Range("BR3"), O.Cells(Application.Rows.Count, 70).End(xlUp).Offset(1, 0))
    Set DEST6 = IIf(O.Range("BS3").Value = "", O.Range("BS3"), O.Cells(Application.Rows.Count, 71).End(xlUp).Offset(1, 0))
    Set DEST7 = IIf(O.Range("BT3").Value = "", O.Range("BT3"), O.Cells(Application.Rows.Count, 72).End(xlUp).Offset(1, 0))
    DEST = Me.TextBox1 '= DEST 'copie la plage nommée "reel" dans DEST
    DEST1 = Me.TextBox2
    DEST2 = Me.ComboBox1
    DEST3 = Me.ComboBox3
    DEST4 = Me.ComboBox2
    DEST5 = Me.TextBox3
    DEST6 = Me.TextBox4
    DEST7 = Me.TextBox5
 
    Sheets("INFO").Copy after:=Sheets(3)
    On Error GoTo nomExistant
    ActiveSheet.Name = DEST
    On Error GoTo 0
    f.Activate
    '-----
    Sheets("ADMIN").Copy after:=Sheets("ADMIN")
    On Error GoTo nomExistant
    ActiveSheet.Name = "TBC" & DEST
    f.Activate
    Unload Me
Exit Sub
 
nomExistant:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    MsgBox "Ce nom existe déjà. Choisissez-en un autre.", 16
    Exit Sub
    Resume Next
 
End Sub