Private Sub Worksheet_Change(ByVal Target As Range)
Dim F
Set F = Sheets("Horaires")
Tablo = F.Range("AV3:AV16")
If Not Intersect([N15], Target) Is Nothing And Target.Count = 1 Then
P = Application.Match(Target, Tablo, 0)
If P < UBound(Tablo) Then
MsgBox LBound(Tablo) & " a " & UBound(Tablo)
Macro = "planches" & P
MsgBox Macro
F.Activate
Application.Run "planches" & P
End If
End If
End Sub