Collage

bonjour à tous

je veux supprimer des formules en gardant les valeurs (sur toutes les feuilles du classeur )

j'ai essayé ceci mais je ne comprend pas , cela ne marche pas (j'ai du louper un truc ...)

For Each ws In Worksheets 'appliquer a toutes les feuill

Range("C1").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("I1").Select

Application.CutCopyMode = False

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

next

merci de votre aide

Bonjour

Un petit code

Sub test()
Dim Ws As Worksheet

  For Each Ws In Worksheets 'appliquer a toutes les feuill
    Ws.Range("C1").Value = Ws.Range("C1").Value
    Ws.Range("I1").Value = Ws.Range("I1").Value
  Next
End Sub

merci banzaï !