Un message à chaque modification des valeurs des cellules

Bonjour, Chers frères et soeurs de la communauté

J'ai code suivant:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([A1:B10,D1:D10], Target) Is Nothing Then Exit Sub
If MsgBox("Noter la date de modif ?", vbYesNo, "Confirmation") = vbYes Then
Cells(Target.Row, 6) = Date
End If
End Sub

Mon problème
Une fois que une cellule est sélectionnée dans [A1:B10,D1:D10], même si la valeur de la cellule n'a pas été modifié la macro s'active et actualise la date.

Je voudrais plutôt que la macro s'active seulement quant les valeurs des cellules ont ont été modifié

Merci pour votre aide