Aide code VBA

Bonjour le forum

Voici le code ci-dessous qui devrait me permettre de
Dans le colonne J lorsque je rencontre 1 je sélectionne la cellule en colonne A et j'exécute une macro
dans la même colonne lorsque je rencontre 2 je sélectionne la cellule en colonne A et j'exécute une macro

idem lorsque je rencontre un 3

même si il y a plusieurs 1 je veux exécuter la macro que une fois
mais le code ci dessous bug lorsque l'on passe a la recherche du 2

Si vous pouvez me donner un coup de main

merci


Sub test20()

Dim c As Range
Dim a As Range
With Range("j:j")

Set c = .Find(1, , xlValues, xlWhole, xlByColumns)
c.Offset(0, -9).Select
Call test4


Set c = .Find(2, , xlValues, xlWhole, xlByColumns)
c.Offset(0, -9).Select
Call test4


Set c = .Find(3, , xlValues, xlWhole, xlByColumns)
c.Offset(0, -9).Select
Call test4

End With
End Sub