Erreur " fin d'instruction"

Bonjour,

pouvez vous me dire où se trouve mon erreur ?

le message d'erreur " fin d'instruction " concerne apparemment la dernière ligne de code.

Cette dernière doit insérer la plage sélectionnée dans l'onglet "Devis", à partir de la cellule "A14", en décalant le reste du tableau vers le bas

Sheets("simulation").Select
  Range("A16:E16").Select
    Range(Selection, Selection.End(xlDown)).Select

Selection.Copy
Sheets("Devis").Insert("A14") Shift:=x1Down

End Sub

merci

Bonjour,

Corrige cette ligne ce n'est pas x1 mais xl

```

Sheets("Devis").Insert("A14") Shift:=x1Down

Sheets("Devis").Insert("A14") Shift:=xlDown

Merci pour ta réponse

je viens de tester et une erreur de syntaxe sur la même ligne apparait

une idée ?

Sheets("simulation").Select
  Range("A16:E16").Select
  Range(Selection, Selection.End(xlDown)).Copy
  Sheets("Devis").Range("A14").Insert Shift:=xlDown

Re,

Teste comme ceci

Merci cela fonctionne parfaitement !

Très bonne journée

Re,

Voir même plus court et éviter les SELECT

Sheets("simulation").Activate
 Range("A16:E" & Range("E" & Rows.Count).End(xlUp).Row).Copy
 Sheets("Devis").Range("A14").Insert Shift:=xlDown

ou sans changer de feuille

With Sheets("simulation")
  .Range("A16:E" & .Range("E" & Rows.Count).End(xlUp).Row).Copy
  Sheets("Devis").Range("A14").Insert Shift:=xlDown
 End With

merci !

pourquoi éviter les Select ?

je vois souvent cela sur les forums, mais je n'ai jamais vraiment comprise !

Re,

Cela fais ralentir les éxecutions de macro

Teste ce fichier venant d'un membre du forum (Patrice 33740)

super merci !