Public Sub test()
'Sheets(Array(Sheets(2), Sheets(3))).Select
Sheets(Array("Sheet2", "Sheet3")).Select
End Sub
Sub Macro2()
'avec les noms exacts
Dim Liste As Variant, Premier As Integer, Dernier As Integer
Premier = Sheets("Coo").Cells(4, 2).Value
Dernier = Sheets("Coo").Cells(5, 2).Value
Liste = Sheets(Premier).Name
For i = Premier + 1 To Dernier
Liste = Liste & Chr(34) & "," & Chr(34) & Sheets(i).Name
Next i
Sheets(Array(Liste)).Select
Sheets(Array(Liste)).Move Before:=Workbooks("hhhh.xls").Sheets(3)
End Sub
Sub Macro3()
Dim Liste As Variant, Premier As Integer, Dernier As Integer
'avec les chiffres
Premier = Sheets("Coo").Cells(4, 2).Value
Dernier = Sheets("Coo").Cells(5, 2).Value
Liste = "Sheets(" & Premier & ")"
For i = Premier + 1 To Dernier
Liste = Liste & "," & "Sheets(" & i & ")"
Next i
Sheets(Liste).Select
Sheets(Array(Liste)).Move Before:=Workbooks("hhhh.xls").Sheets(3)
End Sub
Sub Macro1()
Sheets(Array("Janvier", "Février")).Select
Sheets("Ianuarie").Activate
Sheets(Array("Janvier", "Février")).Move Before:=Workbooks("hhhh.xls").Sheets(7)
End Sub