Annulation discussion

gmb à dit:

Bonjour

Si ta feuilles "Planche" est ton modèle, alors essaie ce code :

Code:

Dim Feuilles, F
Sub MiseEnForme()
    
    Feuilles = Array("Zone", "Fiche reappro", "Fiche reappro (2)", "Code Barre")
    For Each F In Feuilles
        Sheets(F).Cells.MergeCells = False
        Sheets("Planche").Cells.Copy
        Sheets(F).Range("A1").PasteSpecial xlPasteFormats
    Next F
End Sub

Bye !

Cliquez pour agrandir...