Copier juste les valeurs

Bonjour,

pouvez vous m'aider pour cette macro, elle fonctionne mais je souhaite juste copier les valeurs.

J'ai voulu ajouter pastevalues, mais je ne sait pas à quel endroit.

Des idées ?

Sub Macro3()

Sheets("simulation").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Devis").Select

Range("A14").Select

Selection.Insert Shift:=xlDown

ActiveWindow.SmallScroll Down:=3

Range("A14").Select

End Sub

Bonjour NadègeEP

Merci de mettre le code entre balises SVP avec le bouton

Sinon votre code est incorrect, vous n'indiquez pas quelle plage copier

A+

Ah oui en effet c'est mieux ainsi!

Je souhaite copier de A15:E38 de simulation vers devis.

Ce qu'il me faut c'est surtout de ne pas copier les bordures en fait !

merci

Re,

Pensez à utiliser l'enregistreur de macros, vous n'aurez pas de soucis comme ça

Sinon une possibilité

Sub CopieSimulation()
  With Sheets("Devis")
    ' Insrérer les lignes à partir de la 14 - Pourquoi !?
    .Rows("14:37").Insert Shift:=xlDown
    ' Copier les données de l'autre feuille
    Sheets("simulation").Range("A15:E38").Copy
    ' Coller les valeurs
    .Range("A14").PasteSpecial Paste:=xlPasteValues
  End With
End Sub

A+

merci,

le problème avec l'enregistreur c'est que je ne peux pas cumuler :

-copier valeurs et insérer les lignes en décalant vers le bas.

et oui je colle a partir de ligne 14

Re,

L'enregistreur n'est là que pour donner les bases du code à utiliser.

Ensuite et bien évidemment il faut le modifier