Sub graphPays()
Dim cht As Chart, Plage As Range, Nom As Range
With Sheets("Résultat")
Set Plage = .Range("A93:A" & .Range("A65000").End(xlUp).Row)
Set Nom = .Range("A91")
End With
Set cht = Charts.Add
With cht
For i = 1 To 2
.SeriesCollection.NewSeries
.SeriesCollection(i).XValues = "=Résultat!" & Plage.Address(, , xlR1C1)
.SeriesCollection(i).Values = "=Résultat!" & Plage.Offset(0, i).Address(, , xlR1C1)
.SeriesCollection(i).Name = "=Résultat!" & Nom.Offset(0, i).Address(, , xlR1C1)
Next
.ChartType = xlColumnClustered
.Location xlLocationAsObject, "Graphique"
End With
End Sub