recopier onglet RESOLU

Re : recopier onglet

bonjour,

Essai :

Sub Macro1()
'
' Macro1 Macro
'
Sheets("FORMAT").Activate
'
Cells.Select
Selection.Copy
For Each sht In ActiveWorkbook.Sheets
If sht.Name = "FORMAT" Then GoTo label1

If sht.Name = "fEUIL1" Then GoTo label1
a = sht.Name
Sheets(a).Select
Range("A1").Select
ActiveSheet.Paste

label1:
Next

Sheets("FORMAT").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub

Re : recopier onglet

Bonsoir Chalet53
Merci pour ton aide. j'ai récupéré ton code et je le test de suite.
durant la nuit dernière ...... eh bé vi .... , j'ai réussi à avancer dans mon projet et avec ta macro , cela en sera plus facile
a +

Re : recopier onglet

Re bonsoir
OK macro fonctionne avec qq petits aménagements
Merci à toi