Sub copie()
'ouverture et déclaration variable pour ancien et nouveau classeur (OK)
'copie des feuilles 1 à 6 mais parfois l'une d'elle n'existe pas!!!
Dim n As Byte, k As Byte, Nom As String
For n = 1 To Sheets.Count
Windows(ancien).Activate
Nom = Sheets(n).Name
Sheets("Feuil" & n).Range("B2:D20").Copy
Windows("nouveau").Activate
For k = 1 To Sheets.Count
If Sheets(k).Name = Nom Then
Sheets(Nom).Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit For
End If
Next
Next
End Sub