Mise en forme copier/Coller

Bonjour,

J'ai réalisé un code qui me permet de copier coller des cellules de feuilles différentes vers une destination communes seulement j'aimerais adapter mon code afin qui ne prenne pas la mise forme des cellules sources afin de remplir le tableau de destination tel qui l'est.

voici mon code :

Sub Macro1()
Sheets("Environnement,Contexte").Select
Range("A4:A" & [A65536].End(xlUp).Row).Select
Selection.Copy

Sheets("Plans d'actions").Select
Range("C1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Sous-Traitants,Fournisseurs").Select
Range("A4:A" & [A65536].End(xlUp).Row).Select
Selection.Copy

Sheets("Plans d'actions").Select
Range("C1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Scientifiques,Techniques").Select
Range("A4:A" & [A65536].End(xlUp).Row).Select
Selection.Copy

Sheets("Plans d'actions").Select
Range("C1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Organisationnels,Humains").Select
Range("A4:A" & [A65536].End(xlUp).Row).Select
Selection.Copy

Sheets("Plans d'actions").Select
Range("C1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

On le retrouve dans le module n°2

Merci bien

Bonne journée

Bonjour,

tu peux remplacer tes

ActiveSheet.Paste

Par

ActiveSheet.PasteSpecial xlPasteValues

Ca devrait suffir.

A plus

Bonjour,

Oui en navigant entre plusieurs forums j'avais vu cette possibilité,mais il m'affiche le messages suivant :

"Erreur d’exécution 1004 :

La méthode PasteSpecial de la classe Worksheet à échoué" et je ne sais pas pourquoi...

Si quelqu'un à une idée pour résoudre ce problème, je suis preneur.

Merci bien

Change tes commandes comme suit :

Sheets("Environnement,Contexte").Range("A4:A" & [A65536].End(xlUp).Row).Copy
Sheets("Plans d'actions").Range("C1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues

A faire sur toutes les autres !

A plus

Merci ! Problème résolu !