Public Sub set_criteria_plages()
Dim i As Long
[COLOR="#FF0000"]Set plage = Union(Sheets("Accueil").Range("multiple_graph_checkbox"), Sheets("Accueil").Range("group_charts_checkbox"), Sheets("Accueil").Range("Phases_list"), Sheets("Accueil").Range("Global_Phases_list"))[/COLOR]
For i = 1 To ActiveWorkbook.Names.Count
If Exist_list("Criteria" & i) = False Then Exit For
Set plage = Union(plage, Sheets("Accueil").Range("Criteria" & i))
Next i
End Sub