Sub points_bouton_ville() ' macro à mettre sur tous les "boutons villes"
' supprimer tous les "Sub Evt_Ville1_Sel()"
' cette macro peut remplacer "Sub Evt_Ville_Sel(NoVille As Integer)"
Select Case Application.Caller
Case "Ville15"
gauche = Sheets("Carte").Shapes("Ville15").Left + 3.6
haut = Sheets("Carte").Shapes("Ville15").Top + 3.6
Case "Ville " 'et ainsi de suite
End Select
' la ligne de la ville sélectionnée est 15
' dans la cellule "F15" tu auras mis les villes à joindre : 13,14,19
' boucle
' on boucle en déconcatenant F15 => 13 => X, puis 14=>X, ......
' gauche2 = Sheets("Carte").Shapes("Ville" & X).Left + 3.6
' haut2 = Sheets("Carte").Shapes("Ville" & X).Top + 3.6
ActiveSheet.Shapes.AddLine(gauche2, haut2, gauche, haut).Select
' fin de boucle
End Sub