coller les valeurs

Bonjour

J'ai adapter un code VBA que je viens de trouver qui me copie les données d'une feuille appelée Import et colle les données sur la dernier ligne non vide sur la feuille Export de mon classeur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

CopieDonnées Dim derlig As Long, dl As Long   derlig = Sheets("Export").Range("A" & Rows.Count).End(xlUp).Row + 1   With Sheets("Import") dl = .Range("E" & Rows.Count).End(xlUp).Row .Range("c2:x" & dl).Copy Sheets("Export").Range("e" & derlig) Application.CutCopyMode = False End With End Sub

---

Or je veux que se code me colle seulement les valeurs à la place du copier coller

Merci pour votre aide

Bonjour Janakka

Voici

Code:

---

1 2 3 4 5 6 7 8 9

Sub CopieDonnées Dim DerLig As Long, dl As Long DerLig = Sheets("Export").Range("A" & Rows.Count).End(xlUp).Row + 1 With Sheets("Import") dl = .Range("E" & Rows.Count).End(xlUp).Row .Range("C2:X" & dl).Copy Sheets("Export").Range("E" & derlig).PasteSpecial Paste:=XlValues Application.CutCopyMode = False End With End Sub

---

A+