Problème avec code macro effacer

Salut à tous

J'ai pu réaliser les 2 codes macros qui permettent d'effacer les cellules (C12:H31) des feuilles STATBSMS et STATSESAME ci-dessous avec l'enregistreur.

J'ai affecté ces macros à des boutons qui se trouvent sur une autre feuille (DONNE).

En voulant exécuter ces macros par leur BOUTON, je rend compte que rien ne se produit.

Pouvez-vous voire pour moi svp.

Sub Clean_BSMS()
'
' Clean_BSMS Macro
'

'
    Range("C12:H31").Select
    Selection.ClearContents
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("DONNE").Select
    Range("B4").Select
End Sub

Sub Clean_sesame()
'
' Clean_sesame Macro
'

'
    Range("C12:H31").Select
    Selection.ClearContents
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("DONNE").Select
    Range("B4").Select
End Sub

Salut,

Comme ton bouton est situé sur la feuille "Donne", tu effaces les cellules de cette feuille.

Pour le premier cas, ce code devrait faire l'affaire

Sub Clean_BSMS()
Sheets("STATBSMS").Range("C12:H31").ClearContents
End Sub

Afin que ton code enregistré fonctionne, tu aurais dû commencer l'enregistrement en ayant la feuille "Donne" sélectionée. Ton code aurait alors au préalable sélectionné la feuille (ce qui n'est pas nécessaire) sur laquelle les données à effacer se trouvent.

Cordialement.

Salut Yvouille

Merci pour ton aide qui fonctionne très bien.