Graphique avec liste de choix

Private Sub CommandButton1_Click()

Dim i As Integer
Dim r1, r2, ranges As Range
  
  
  If Cbo_device.Value = "Fournisseur 1" Then
        i = 2    '--> Numéro de la ligne, le fournisseur se situe en ligne 2
    
    ElseIf Cbo_device.Value = "Fournisseur 2" Then
        i = 3
    
    ElseIf Cbo_device.Value = "Fournisseur 3" Then
        i = 4
        
    ElseIf Cbo_device.Value = "Fournisseur 4" Then
        i = 5
        
    ElseIf Cbo_device.Value = "Fournisseur 5" Then
        i = 6
        
    ElseIf Cbo_device.Value = "Fournisseur 6" Then
        i = 7
        
        End If
        
        
        
Set r1 = Sheets("Data").Range(Cells(1, 1), Cells(1, 6)) ' Car mes etiquettes de données sont entre A1 et F1
Set r2 = Sheets("Data").Range(Cells(i, 1), Cells(i, 6)) 'Car je prend ma ligne en fonction du fournisseur mais toujours entre A et F
Set ranges = Union(r1, r2)
 

       

    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    
    ActiveChart.SetSourceData Source:=ranges, PlotBy:= _
        xlRows
    
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Data"
    
    With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = True
        .HasAxis(xlValue, xlPrimary) = True
    End With
    
    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
    ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False



End Sub