Sub Macro1()
Application.ScreenUpdating = False
'
' Macro1 Macro
'
'Nb de villes
NbVilles = Range("A" & Rows.Count).End(xlUp).Row - 2
'masquer les colonnes inutiles
Range("C:E,G:I,K:M,O:Q,S:U,W:Y,AA:AC,AE:AG").EntireColumn.Hidden = True
For i = 1 To NbVilles
Set ZoneData = Range("$A$2:$N$2,$A" & i + 2 & ":$N" & i + 2)
'ZoneData.Select
'Range ("'Feuil1'!$A$2:$N$2;'Feuil1'!$A$4:$N$4")
'insère un graphique
ActiveSheet.Shapes.AddChart.Select
'set la zone de données
ActiveChart.SetSourceData Source:=ZoneData
'définit le type de graphique
ActiveChart.ChartType = xlXYScatterLines
'lui donne le nom de la Ville
ActiveChart.Parent.Name = Range("A" & i + 2)
Next i
Application.ScreenUpdating = True
End Sub