Dim NomOperation, NomGraphique As String
Dim Ligne As Long
Dim Plage, XPlage As Range
Dim Ctrl As Control
Application.ScreenUpdating = False
Set Plage = ?????
Set XPlage = ?????
Sheets("PageDonnees").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("$A$13:$B$13")
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Delete
For Each Ctrl In OptionsClosCouvert.Controls
Ligne = 1
If (TypeOf Ctrl Is MSForms.CheckBox) And Ctrl.Value Then
While Not Range("A" & Ligne).Value = Ctrl.Caption
Ligne = Ligne + 1
Wend
Set Plage = Union(Plage, Cells(Ligne, Colonne))
Set XPlage = Union(XPlage, Cells(Ligne, 1))
End If
Next Ctrl
ActiveChart.SeriesCollection.Add Source:=Plage
ActiveChart.SeriesCollection(1).Name = Cells(2, Colonne).Value
ActiveChart.SeriesCollection(1).XValues = XPlage
ActiveChart.ChartType = xlRadar