Set PlageX = Application.Union(Worksheets("Listes").Range("X" & Prembis & ":X" & Der), Worksheets("Listes").Range("X" & Prem & ":X" & Derbis))
Set PlageY = Application.Union(Worksheets("Listes").Range("Y" & Prembis & ":Y" & Der), Worksheets("Listes").Range("Y" & Prem & ":Y" & Derbis))
If Prem < 10 And Der > 50 And k > 20 Then
Graph.SeriesCollection(1).XValues = PlageX
Graph.SeriesCollection(1).Values = PlageY
Else
Graph.SeriesCollection(1).XValues = Worksheets("Listes").Range("X" & Prem & ":X" & Der)
Graph.SeriesCollection(1).Values = Worksheets("Listes").Range("Y" & Prem & ":Y" & Der)
End If