Private Sub CommandButton2_Click()
Worksheets("Accueil").Range("D4
8").Copy Destination:=Worksheets("visualisation").Range("A2:A6")
Application.CutCopyMode = False
If CheckBox1.Value = True Then Worksheets("Accueil").Range("F3").Copy
Worksheets("visualisation").Range("C2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
If CheckBox2.Value = True Then Worksheets("Accueil").Range("F5:H5").Copy
Worksheets("visualisation").Range("C3
3").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
If CheckBox7.Value = True Then Worksheets("Accueil").Range("K4").Copy
Worksheets("visualisation").Range("D5").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
If CheckBox8.Value = True Then Worksheets("Accueil").Range("K5").Copy
Worksheets("visualisation").Range("D5").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
If CheckBox9.Value = True Then Worksheets("Accueil").Range("K6").Copy
Worksheets("visualisation").Range("D5").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
If CheckBox16.Value = True Then Worksheets("Accueil").Range("K7").Copy
Worksheets("visualisation").Range("D5").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Worksheets("Accueil").Range("D12
16").Copy Destination:=Worksheets("visualisation").Range("A9:A13")
Application.CutCopyMode = False
Worksheets("Accueil").Range("D20
24").Copy Destination:=Worksheets("visualisation").Range("A16:A20")
Application.CutCopyMode = False
End Sub