Bonjour à tous
Je n'arrive pas à incrémenter la lecture de mes cellules pour créer plusiseurs nouvelles feuilles avec ce nom
je m'explique en a1 j'ai nom1 en a2 j'ai nom 2 etc.. et je voudrais créer à partir de la une feuille qui se nomme nom1 une feuille nom 2 etc
voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim Nom As String
Dim Cpt As Integer
 
Sub ren_feuille()
Sheets("feuil1").Activate
Cpt = 1
Nom = Cells(Cpt, "a").Value
Cpt = Cpt + 1
Sheets.Add.Name = Nom
 
End Sub
merci d'avance pour vos suggestions