Dim Feuilles As Worksheet
Sheets(Array('Truc', 'Muche', 'EtMoi')).Copy
For Each Feuilles In ActiveWorkbook.Sheets
Feuilles.Cells.Copy
Feuilles.Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next Feuilles