XL 2010 Effacer des données sur une feuille et rester sur la même feuille

[Loreen]

Bonjour tout le monde,

Je cherche à effacer des donner sur une feuille en particulier.
Par contre, dès que je lance la macro via le bouton, il me renvoit sur une feuille avec une autre macro.
Alors que je souhaiterais rester sur la feuille dans laquelle j'ai effectué l'effacement de mes données.
Je vous joins aussi mon fichier.
Est ce que vous pouvez m'aider svp?

Merci d'avance.

Loreen

Sub EffacePlage()
Sheet6.Activate
Range("B11:M1000").Select
Selection.Clear
Range("B7").Select
End Sub

 

[Phil69970]

Bonjour Loreen

Le code fonctionnera mieux comme ça:

Sub EffacePlage()

Application.EnableEvents = False

Sheet6.Activate
Range("B11:M1000").Clear
Range("B7").Select

Application.EnableEvents = True

End Sub

@Phil69970

 

[pierrejean]

Bonjour Loreen
C'est cette macro qui est activée

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call akinatorHP
Sheet2.Activate
End Sub

modifier comme suit

Sub EffacePlage()
  Application.EnableEvents = False
    Sheet6.Activate
    Range("B11:M1000").Select
    Selection.Clear
    Range("B7").Select
  Application.EnableEvents = True
End Sub