Mise à jour onglet après modification cellule

Bonjour à tous,

Contexte:

Je souhaite mettre à jour un onglet après chaque changement de la cellule R10 du dit onglet.

Problème:

J'ai essayé le code suivant sans succès.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "R10" Then ActiveSheet.Calculate
End Sub

Question:

Est-ce que l'un des experts de ce forum aurait une idée à me proposer?

D'avance merci pour votre aide.

Cordialement

Bonjour à tous,

En cherchant sur un site américain j'ai fini par trouver la solution:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("R10")) Is Nothing Then
    Me.Calculate
    End If

End Sub

Cordialement