Copier coller entre classeurs ouverts

[a26]

Bonjour,
Récemment j'ai utilisé une macro de copier coller entre classeur trouvée sur le net. Pour des raisons pratiques, je souhaiterai que le collage se fasse uniquement en spécial valeur. Donc sans la mise en forme d'origine.
Pouvez-vous me guider dans la modification du code pour arriver à cette solution.
Merci à vous tous.
Cordialement,
a26

 

[natorp]

Bjr a26

Sub Copie()
Application.ScreenUpdating = False
Workbooks("origine.xlsm").Sheets("données").Select
Range("B6:B256").Select
Selection.Copy

Workbooks("recep.xlsm").Sheets("mars").Activate
Range("E6:E256").PasteSpecial Paste:=xlPasteValues

Application.ScreenUpdating = True
End Sub

Cordialement, Gérard

 

[Staple1600]

Bonsoir à tous

On peut aussi faire comme cela

Sub Copie2()
Workbooks("recep.xlsm").Sheets("mars").Range("E6:E256").Value = Workbooks("origine.xlsm").Sheets("données").Range("B6:B256").Value
End Sub

ou en version un peu plus courte

Sub Copie3()
Workbooks("recep.xlsm").Sheets("mars").[E6:E256].Value = ThisWorkbook.Sheets("données").[B6:B256].Value
End Sub

 

[a26]

Bonjour natorp et Staple 1600,
Je viens ce matin de découvrir vos réponses car j'ai du m'absenter hier après midi.
Vos solutions fonctionnent à merveille.
Un grand merci à vous deux.
Cordialement,
a26