Copier coller grâce à une macro

Question

Ca y est j'ai sauté le pas et je m'essaie aux macros. Alors j'ai pioché un peu partout et regarder ce que donner en code mes actions grâce à l'enregistreur de marco et j'y arrive presque. il y a juste un détail qui cloche et j'espère que vous qui pratiquer les macro depuis longtemps vous pourrez m'aider. Je veux faire une macro pour tirer des données sur les cellules : A5:C31 : pas de souci ça marche Ensuite je veux copier les 10 premiers : A5:C14 et les copier sur une autre page : pas de souci. Mais les données qui sont en troisième colonne (colonne C) sont des chiffres issus de formules. Du coup quand il copie, il transforme la formule et ça donne pas le résultats que je veux. Voici le fichier https://www.excel-pratique.com/~files/doc/depouillement_satisfaction_fournisseur_services_copie_forum.xls Dans le fichier : c'est la macro 6 les autres c'est des brouillon et voici le texte de ma macro : Sub Macro6() Worksheets("Feuil3").Select Range("A5:C31").Select Selection.Sort Key1:=Range("C5"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("A5:C14").Select Selection.Copy _ Destination:=Worksheets("Feuil1").Range("B20") End Sub j'espère que je suis assez claire et merci d'avance pour vos réponses...

souri84 · Answer

Essaies par un collage spécial: Sub Macro6() Worksheets("Feuil3").Select Range("A5:C31").Select Selection.Sort Key1:=Range("C5"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("A5:C14").Select Selection.Copy 'copie/collage spécial en valeur Sheets("Feuil1").Select Range("B20").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub A te lire, souri84...