Lancer plusieur macro avec une cellule

bonjour

je suis un novice!!!

j'essai toujour de me débrouiller en trouvant et bidouillant des choses existante mais là je sèche !!

j'ai une macro qui se déclenche par une cellule

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.Intersect(Target, Range("J1")).Value = "1" Then

Call Evt_Dpt01_Sel

End If

End Sub

je voudrais la meme chose mais je veux affecter d'autres macros a cette cellule

si J1 = 2 déclencher Call Evt_Dpt02_Sel etc jusqu'au departement 95 !!!!!

c'est peut etre evident mais je rame !!!!

Bonjour

A tester

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("J1")) Is Nothing Then
    Run "Evt_Dpt" & Format(Range("J1"), "00") & "_Sel"
  End If
End Sub

tu as mis 5 mn a trouver ce que j'essayais depuis 3h00

super!!!!!!!

merci pour tout !!!!!!!!!!