Problème Copie-Colle de deux feuilles vers une troisième

Signaler
Messages postés
1
Date d'inscription
lundi 14 mai 2012
Statut
Membre
Dernière intervention
14 mai 2012
-
Bonjour à tous !

J'ai un soucis lors d'un copier-coller.

Je cherche à copier les colonnes de deux feuilles, vers une troisième.

La première copie fonctionne, la deuxième aussi mais les valeurs se retrouvent décalées de 5 colonnes à droite.

Voici mon code:

Sub test()

Sheets("Export Cov Entier").Select
Columns("A:P").Select
Selection.ClearContents


Sheets("Points Sup Covadis").Select
Columns("A:F").Select
Selection.Copy
Sheets("Export Cov Entier").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Export Covadis").Select
Columns("A:F").Select
Selection.Copy
Sheets("Export Cov Entier").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub


Je tourne en rond depuis quelques jours, je n'ai bientôt plus de cheveux !
Si quelqu'un pouvait me donner un coup de main, ce serait sympa pour mon coiffeur :)