Dupliquer un onglet tout en changeant son nom

Bonjour,

Non l'onglet s'appelle GLOBAL et est rattaché à la feuille 1 (feuil 1)
et le deuxième onglet avec les données s'appelle SX19. et est rattaché à la feuille 5 (feuil5).

J'avais trouvé une macro qui faisait à peu près ce que je demandais sauf que j'ai du insérer une colonne dans mon onglet de données contenant la liste. De là en activant ma macro j'ai réussi à obtenir mes différents onglets avec des noms suivant la liste et aussi que ca écrit le nom de l'onglet dans la cellule F1 de la feuille.

Cependant cela m'embête d'avoir rajouté une colonne dans ma feuille car lorsqu'elle se duplique, elle duplique aussi cette colonne, mais du coup comme j'ai des macros dans chacune de mes feuilles, elles ne s’exécutent pas correctement. Je mets le code ici :

" Option Explicit

Sub Ajouter_Feuilles()
Dim J As Long
Dim Ws As Worksheet

Application.ScreenUpdating = False
Set Ws = ActiveSheet
For J = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row
If Not FeuilleExiste(Ws.Range("A" & J).Value) Then
Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Ws.Range("A" & J)
Range("F1") = ActiveSheet.Name ' Met le nom de la feuille dans la cellule F1
End If
Next J
Ws.Select
End Sub

'Si l'onglet existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function "

Je voudrais éviter de rajouter une colonne supplémentaire dans mon onglet de données et avoir la macro qui aille chercher l'info dans mon onglet Global pour nommer mes différents onglets.

Je ne sais pas si je suis assez claire, en tout cas merci d'avance.

Nono

Bonjour Thautheme !

Merci de ta réponse... Cependant le code ne marche pas, il me met en jaune la ligne "for each..." et me dit que "l'indice n'appartient pas à la sélection" ...

Merci beaucoup de ton aide

Nono

Merci mais ca ne marche toujours pas... il me met la ligne
ActiveSheet.Name = CEL.Value 'renomme l'onglet copié
en jaune...

Merci quand même

Nono

C'est bon j'ai réussi merci beaucoup !
Désolée de pas avoir été très claire sur mes explications, mais merci grâce à toi ca marche !

J'ai aussi une autre question qui est liée : Je voulais savoir s'il était possible de nommer chaque cellule D1 de chaque onglet à partir de la colonne B de mon onglet global. Je m'explique : dans l'onglet Global il y a en colonne a les codes 01, 02, 03.... qui m'ont servi à nommer mes onglets. Et dans la colonne B2, en face de chaque code il y a les noms des bureaux, je voudrais que ces noms apparaissent dans chaque onglet dans la cellule D1 pour qu'on puisse reconnaître à quel bureau appartient ce code...

Merci par avance de votre aide

Nono

MERCI beaucoup Thautheme tu me sauves !