Action avec Worksheet_Deactivate

Bonjour à tous,

Contexte:

J'ai plusieurs onglets avec des graphiques de TCD et j'ai remarqué que lorsque j'en sélectionnais un et que je changeais d'onglet, les actions ultérieurs, pouvaient parfois, dans de rare cas, changer les paramètres du graphique de mon TCD. Surement un bug ou un problème de sécurité.

Problème:

Afin d'éviter que cela ne se produise, je souhaite que lorsque je passe à un autre onglet, qu'une macro sélectionne avant de quitter l'onglet la cellule "M2".

Question:

J'ai pensé au code suivant, hélas il ne fonctionne pas. Auriez-vous des conseils à me donner?

Private Sub Worksheet_Deactivate()

    Range("M2").Activate

End Sub

D'avance merci pour vos contributions.

Cordialement

J'ai finalement trouvé une solution:

Private Sub Worksheet_Deactivate()
    Dim ActiveWorkSheet As Worksheet
    Set ActiveWorkSheet = ActiveSheet
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Goto Me.Range("M2"), True
    ActiveWorkSheet.Activate
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Si une personne pouvait me conseiller un meilleur code je suis bien-sûr preneur.

Bonne journée