Micro problème de macro

Bonjour,

Comment faire pour que cette macro créée via l'enrégistreur de macro puisse être utilisée séparément dans chaque feuille ? Ici il agit sur la feuille 1.

Il y aura un bouton pour la déclencher dans chaque feuille.

Le code est dans un module actuellement, doit-il rester la ?.

Ce que je désire c'est que quand je suis par exemple, dans la feuille 2, il aille copier la feuille 3, qu'il la colle dans la feuille 2 et qu'il supprime et cache certaines lignes de la feuille 2.

Si dans feuille 6, il copie feuille 3, colle sur feuille 6 et supprime et cache certaines lignes de la feuille 6.

Cela doit pouvoir fonctionner dans toute autre feuille (excepté la 3 bien sur).

Sub Jour_ferié()
'
' Jour_ferié Macro
' Macro recorded 23/09/2010 by me
'

'
    Sheets("Sheet3").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Cells.Select
    ActiveSheet.Paste
    Rows("5:6").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Selection.EntireRow.Hidden = True
    Rows("10:11").Select
    Selection.ClearContents
    Selection.EntireRow.Hidden = True
    Rows("16:17").Select
    Selection.ClearContents
    Selection.EntireRow.Hidden = True
    Range("I33").Select
End Sub

Grand merci d'avance.

Bonne journée.

Bonsoir à tous,

dans un module, copie les cellules de la "Sheets3"

efface et masque certaines lignes dans la feuille active

Sub Jour_ferié()
    Sheets("Sheet3").Cells.Copy
    With ActiveSheet
        .Paste .Range("a1")
        Application.CutCopyMode = False
        .Rows("5:6").ClearContents
        .Rows("5:6").EntireRow.Hidden = True
        .Rows("10:11").ClearContents
        .Rows("10:11").EntireRow.Hidden = True
        .Rows("16:17").ClearContents
        .Rows("16:17").EntireRow.Hidden = True
        .Range("I33").Activate
    End With
End Sub

Amicalement

Claude

Bonsoir Claude, le forum,

C'est exactement ce qu'il me fallait,

un tout grand merci à toi pour le temps consacré à m'aider.

Bonne journée.

Bien à toi.