Sub testgraph()
Dim i As Integer, j As Integer
i = 2 'colonne B, à adapter
j = 4 'colonne D, à adapter
Union(Columns(i), Columns(j)).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Union(Sheets("data").Columns(i), Sheets("data").Columns(j))
End Sub