Copier les valeurs d'une feuille sans les formules

Bonjour,

Je souhaiterais copier uniquement les valeurs d'une feuille sans les formules. Malheureusement, après avoir enregistré la macro du collage spécial et l'avoir insérer dans mon code, le collage ne se fait pas correctement et certaines formules sont quand même collés (notamment un RECHERCHEV qui ne disparait pas).

Workbooks("FICHIER 1").Worksheets("JOURNAL 1").Activate
            Cells.Select
            Application.CutCopyMode = False
            Selection.Copy
Workbooks("FICHIER 2").Worksheets("JOURNAL 2").Activate
            Cells.Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False

Bonne journée,

Fihn59

Bonjour,

Option Explicit

Sub CopierLeJournal()

Dim ShJ1 As Worksheet, ShJ2 As Worksheet

    Set ShJ1 = Workbooks("FICHIER 1.xlsm").Sheets("JOURNAL 1") ' Extension des fichiers à adapter
    Set ShJ2 = Workbooks("FICHIER 2.xlsm").Sheets("JOURNAL 2")

    ShJ1.Cells.Copy
    ShJ2.Range("A1").PasteSpecial xlPasteValues

    Set ShJ1 = Nothing: Set ShJ2 = Nothing

End Sub

Merci pour ton aide, le problème est résolu !

Fihn59