effacer des données feuil2 depuis feuil1 avec un bouton

[pascal21]

bonsoir
je ne retrouve plus la méthode pour effacer des données dans des feuilles
ex feuil1 j'ai un bouton qui me sert pour lance une impression de la feuil1
j'aimerais que les données qui se trouvent feuil2 feuil4 feuil5,etc...colonne m et qui ont alimentées cette feuil1 soient effacées
j'y arrive avec l'enregistreur de macro et en y ajoutant un raccourci mais lorsque je copie ce bout de code dans le code du bouton ça me mets un message d'erreur "la méthode range de l'objet à échouée"
comment faire
merci

 

[Cousinhub]

Re : effacer des données feuil2 depuis feuil1 avec un bouton

Bonsoir,
un exemple de code :

Sub eff()
For Each sh In Array("Feuil1", "Feuil2", "Feuil3")
    With Sheets(sh)
        .Range("M:M").ClearContents
    End With
Next sh
End Sub