Bonjour tout le monde et félicitations au forum, j'ai un problème avec cette macro, je ne peux pas assembler dans la feuille cible le format, pouvez-vous aider à résoudre?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
##############################################################

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro1()
    Dim c       As Long
    Dim DstRng  As Range
    Dim Rng     As Range
    Dim RngEnd  As Range
    Dim RowCnt  As Long
 
        Set DstRng = Worksheets("Scheda").Range("A28:J28")
            DstRng.Resize(70 - DstRng.Row + 1).ClearContents
 
        With Worksheets("Preventivo")
            For c = 37 To 97 Step 12
                Set Rng = .Cells(15, c)
                If Not Rng.Value = "" Then
                    Set RngEnd = Rng.End(xlDown)
                    RowCnt = RngEnd.Row - Rng.Row + 1
                    Set Rng = Rng.Resize(RowCnt, 10)
                    Set DstRng = DstRng.Resize(RowCnt)
                    DstRng.Value = Rng.Value    ' // Same as pasting values
                    Set DstRng = DstRng.Offset(RowCnt, 0)
                End If
            Next c
        End With
End Sub