Utiliser une liste pour faire un userform

'Ajout du graphique
    Sheets("Evolution").Select 'Just in case
    ActiveSheet.Shapes.AddChart.Select
     
'Sélection de la plage de données
    With ActiveChart
        .SetSourceData Source:=Range(Cells(24, 3), Cells(ActiveSheet.Range("C65536").End(xlUp).Row, 3 + i))
        .ChartType = xlLineMarkers
        .Axes(xlCategory).MajorUnit = 7
    End With
    
'Déplacement du graphique
    With ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count) 'Placement en B3
        .Left = Range("B3:L23").Left + 3
        .Top = Range("B3:L23").Top + 3
        .Width = Range("B3:L23").Width - 2 * 3
        .Height = Range("B3:L23").Height - 2 * 3
    End With

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    If CloseMode = 0 Then
        End
    End If
    
Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)