VBA - Copier Coller valeur sans mise en forme

Bonjour à tous,

Je cherche à copier coller sans mettre la mise en forme. Le copier coller se fait d'une feuille principale (Formules, vers des feuilles annexes); Après de multiple recherche, j'ai trouvé un bout de code qui devrait me résoudre mon pb mais cela ne fonctionne pas (erreur type 400).

Voici mon code (qui ne marche pas à cause de la dernière ligne :

For Tx = 1 To T - 3
Worksheets("Formules").Activate
Cells(14, Tx + 1).Select
Selection.Copy
Worksheets("Formules").Activate
Sheets(Tx + 2).Select
Cells(68, 9).Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
Next Tx

Merci d'avance pour vos réponses.

Bonjour!

Je ne sais pas si cela marche sous Excel 2013 mais sous Excel 2016, on peut copier coller sans mise en forme avec Ctrl+V après avoir collé; ou clic-droit "Paste Special" >> "Values" (ma version d'Excel est en anglais).

Bonsoir Cabrinha,

faisons simple. Teste ceci!

For Tx = 1 To T - 3
    Sheets(Tx + 2).Cells(68, 9) = Cells(14, Tx + 1)
Next

A+

Merci Curiulis57,

Ca marche bcp mieux et c'est plus rapide.