Bonjour je viens de faire un code et je ne comprends pas pourquoi il ne marche pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If Not Application.Intersect(Cells(3, 2), Range(Target.Address)) Is Nothing Then
    If Cells(3, 2) = 1 Then
        Cells(9, 4) = 100
    End If
End If
Vous l'aurez compris, je souhaiterai que la cellule (9, 4) se remplisse automatiquement après avoir mis 1 dans la cellule (3, 2).