Modifier le code pour copier des données sans formules

Bonjour, est-il possible de modifier le code pour que les colonnes puissent être copiées ou déplacées d'une feuille à l'autre sans formules.

Sub M_H()
Dim i As Long
Dim MH As Long, k As Long
Application.ScreenUpdating = False
With Sheets("saad")
lr = Cells(Rows.Count, 1).End(3).Row

Sheets("data").Range("e10:l" & lr).ClearContents
lrow = .Cells(Rows.Count, 4).End(xlUp).Row

frt = Split("B,D,E,G,I,J,K,L,O", ",")

tot = Split("D,E,F,G,H,I,J,K,L", ",")
For i = LBound(frt) To UBound(frt)

.Range(frt(i) & "10:" & frt(i) & lrow).Copy Sheets("Data").Range(tot(i) & "10")
Next i
    End With

    With Sheets("data")
        k = 1
        For MH = 10 To .Range("D" & .Rows.Count).End(xlUp).Row
            If .Range("C" & MH) = valeu Then
                .Range("C" & MH) = k
                k = k + 1
            End If
        Next MH
    End With
End Sub

Bonjour,

Fournir le fichier SVP

A+