Salut Niko
Essaies ce genre de code (dans l'exemple c'est A1 la cellule dont tu testes le changement):
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ce que tu veux faire
End If
End Sub
Bon courage
Pascal