Copier / Coller sans la mise en forme (juste la valeur)

Bonjour, je vous écris je ne parviens pas à coller une valeur sans la mise en forme pourtant

j'utilise bien :

Selection.PasteSpecial Paste:=xlPasteValues

Je prends une valeur venant d'un autre onglet pour la mettre sur un onglet principale sous forme de tableau.

Mais mon bout de programme me retire la mise en forme...

Voici le programme en question :

Sub sommeADA()
Sheets("ADA").Select
Range("Q2").Select

ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:R[998]C[-3])"

    Range("Q2").Select
    Selection.Copy
    Range("A1").Select
    Sheets("Bilan comparatif général").Select
    Range("C10").PasteSpecial Paste:=xlPasteValues

    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00"
    Sheets("ADA").Select
    Range("Q2").Select
    Selection.Copy
    Range("A1").Select
    Sheets("Bilan comparatif général").Select

    Selection.PasteSpecial Paste:=xlPasteValues
    Range("A1").Select

End Sub

Je vous remercie.

Maxime

Bon merci quand même, mais j'ai réussi via l'enregistreur de MACRO.


Sub sommeTOT()

    Sheets("ADA").Select                                                                  'ADA
        Range("Q2").Select

        ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:R[998]C[-3])"

        Selection.Copy

    Sheets("Bilan comparatif général").Select
        Range("C10").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("A1").Select

    Sheets("ADA").Select
        Range("Q2").Select
        Application.CutCopyMode = False
        Selection.ClearContents
        Range("A1").Select

    Sheets("Bilan comparatif général").Select
Rechercher des sujets similaires à "copier coller mise forme juste valeur"