Dim c As ChartObject
With Sheets("NomFeuille")
Set c = .ChartObjects.Add(.Range("A20").Left, .Range("A20").Top, 350, 150)
End With
With c.Chart
.ChartType = xlLineMarkers
.SetSourceData Source:=Sheets("NomFeuille").Range("A1:D6"), PlotBy:=xlRows
End With