Sub SparkLines_Maison()
Dim i&
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = .ChartObjects.Count To 2 Step -1
.ChartObjects(i).Delete
Next i
.ChartObjects(1).Copy
For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
.Range("F" & i).Select
.Paste
ActiveChart.SetSourceData Source:=.Range("B" & i & ":E" & i)
Next i
.Range("$A$1").Select
End With
Application.ScreenUpdating = True
End Sub