Copier une feuille sur plusieurs autres

[Olivier]

Bonjour à tous,

Et bonne année,

J'aurai voulu copier le contenu d'une feuille sur plusieurs autres feuilles du meme classeur dont les noms sont contenus dans une liste présente sur une autre feuille dans le range A:A de la feuille Comptes.

Voici une ebauche, si quelqu'un pouvait me la modifier et compléter.

Merci d'avance.

Sheets("MASQUE").Select
Cells.Select
Selection.Copy
Sheets("Comptes").Select

Columns("A:A").Select
Dim cell As Range, Nom$, Sht As Worksheet

Sheets("Sht").Select
Selection.Paste

Olivier

 

[vinc26]

slt
tu te positionne sur l'onglet ou tu a toute tes feuille (ta colonne A
sheet(info_a_copier).select
Cells.Select
Selection.Copy

sheet(info_feuille).select
Range("A:A").select
For ii = 1 to rows.count
'on sort si plus de feuille marquer dans la colonne A
If range("A" & ii).value = "" then
exit for
end if
Sheets(Range("A" & ii).text).select
range("A1").select

'copie des donnee de info_a_copier dans la feuille selectionner a partir du nom trouver dans la colonne A
ActiveSheet.Paste
Sheets(info_feuille).select
next ii

 

[Olivier]

Merci vinc pour ta rapidité et ton efficacité

 

[vinc26]

ca fctionne ou pas ???

 

[Olivier]

impec !