Modification de code

Bonjour le Forum

Joyeux 1 er mai

Je viens vers vous car j'ai besoin de modifier un code svp.

Je cherche à créer suivant une liste de noms des onglets avec un modèle, mais j'ai besoin que dans chaque onglet créé apparaisse en colonne "B" et pour autant de cellule remplie en "A" la valeur de la cellule à droite de la liste de création.

Le code de création des onglets est fait, mais je ne sais pas comment rajouter cette option dedans.

Je place un fichier avec le résultat que je cherche à obtenir

D'avance je vous remercie pour votre aide et votre disponibilité

Bonjour

Selon ce que j'ai compris... dans votre code "Creer feuilles" juste en dessous de cette ligne

Worksheets(Worksheets.Count).Name = sNomOnglet

Mettez ceci

With Worksheets(sNomOnglet)
   .Range("B1:B" & .Range("A" & .Rows.Count).End(xlUp).Row) = oShListe.Range("B" & iLig).Value
End With

Cordialement

Bonjour le Forum

Bonjour Dan et merci pour ton aide

ca fonctionne

sujet clos