Appliquer macro en fonction de la feuille active

Bonjour,

voila mon problème, j'ai un tableau de résultats individuels pouvant aller jusqu'à XX personnes.

je souhaite dédier une macro affectée à l'impression d'une feuille synthétisant la feuille de résultat active.

J'ai bien réussi à faire la macro pour la feuille de résultat 1 mais il faudrait alors adapter la macro à chaque feuille de résultat.

Comment faire pour que la macro s'applique en fonction de la feuille de résultat active?

Merci pour vos réponses

Bonjour,

une proposition (non testée)

Sub Impression()
'
'
' Suppression du scintillement
Application.ScreenUpdating = False

' Copie des données vers "feuille impression"

    Set cws = activeworksheet
    Set iws = Worksheets("Fiche impression")

    cws.Range("B4:C6").Copy iws.Range("B4")
    cws.Range("B41:B43").Copy iws.Range("B14")
    cws.Range("B45:B48").Copy iws.Range("B18")
    cws.Range("B50:B54").Copy iws.Range("B23")
    cws.Range("B56").Copy iws.Range("B29")
    cws.Range("A29:F34").Copy iws.Range("A35")

    iws.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

    ' Retour sur la feuille de résultat
    cws.Select
    Range("A1").Select

End Sub

Merci mais il y a une erreur d'exécution '13': incompatibilité de type

dés la ligne :

Set cws = activeworksheet

Bonjour,

essaie ainsi

Set cws = ActiveSheet

Super, ça fonctionne très bien.

Merci d'avoir passé du temps pour me trouver une solution.