Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G10")) Is Nothing Then
' Traitement de la valeur en G10
' Ici, n'importe quoi : copie de la valeur en B2 pour exemple
[B2] = Target
End If
End Sub