Sub Macro1()
'
' Macro1 Macro
'
'
Sheets(Array("EKC", "DIVERS CABLES", "KKR BUS 01", "KKR BUS 02", "KKR BUS 03", _
"KKR BUS 04", "KKR BUS 05", "KKR BUS 06", "KKR BUS 07", "KKR BUS 08", "KKR BUS 09", _
"KKR BUS 10", "MAT BUS 01", "MAT BUS 02", "MAT BUS 03", "MAT BUS 04", "MAT BUS 05", _
"MAT BUS 06", "MAT BUS 07", "MAT BUS 08", "MAT BUS 09", "MAT BUS 10")).Select
Sheets("EKC").Activate
Sheets(Array("EKC", "DIVERS CABLES", "KKR BUS 01", "KKR BUS 02", "KKR BUS 03", _
"KKR BUS 04", "KKR BUS 05", "KKR BUS 06", "KKR BUS 07", "KKR BUS 08", "KKR BUS 09", _
"KKR BUS 10", "MAT BUS 01", "MAT BUS 02", "MAT BUS 03", "MAT BUS 04", "MAT BUS 05", _
"MAT BUS 06", "MAT BUS 07", "MAT BUS 08", "MAT BUS 09", "MAT BUS 10")).Copy
Windows("FICHES DE VER.xlsm").Activate
Application.WindowState = xlMinimized
Windows("Classeur4").Activate
End Sub