With Sheets("Carte").Shapes.BuildFreeform(msoEditingAuto, longitude(1), latitude(1))
For i = 2 To nbpoint
.AddNodes msoSegmentLine, msoEditingAuto, longitude(i), latitude(i)
Next i
.AddNodes msoSegmentLine, msoEditingAuto, longitude(1), latitude(1)
.ConvertToShape.Select
Selection.Name = ville
Selection.ShapeRange.Fill.ForeColor.RGB = couleur(indexcouleur)
'création du lien hypertext permettant :
'- l'affichage du nom du département au survol de la souris (+ la région pour l'exemple)
'- l'affichage du département dans Google Map lorsque l'on clique dessus
.Application.ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _
Address:="https://www.google.fr/maps/place/" & ville, _
ScreenTip:=ville & vbCrLf & Sheets("Data").Cells(j, 4)
'OnAction devient inopérant si l'on utilise un Hyperlien
'Selection.OnAction = "USF"
End With