Copier/coller en format

Bonjour,

J'aimerai ajouter une notion de copier/coller en format et pas seulement en valeur dans la macro ci-dessous.

Est-ce possible ?

Merci de votre aide.

Sub transfert()
    Dim ws As Worksheet, wsNew As Worksheet, lni%, tft
    Set wsNew = Sheets("BDD")
    wsNew.Range("A1").CurrentRegion.Offset(1).ClearContents: lni = 2
    Application.ScreenUpdating = False
      For Each ws In Worksheets
          If ws.Name <> "Besoins" And ws.Name <> "MAJ" Then
                With ws.Range("A1").CurrentRegion
                    If .Rows.Count > 1 Then
                        tft = .Offset(1).Resize(.Rows.Count - 1).Value
                        wsNew.Cells(lni, 1).Resize(UBound(tft, 1), UBound(tft, 2)).Value = tft
                        lni = lni + UBound(tft, 1)
                    End If
                End With
          End If
      Next ws
End Sub

Bonjour,

Un essai pour que ça fonctionne avec les précisions fournies, non testé :

.../...
                    If .Rows.Count > 1 Then
                        tft = .Offset(1).Resize(.Rows.Count - 1).Value
                        .Offset(1).Resize(.Rows.Count - 1).Copy  'copie de la plage données et format
                        wsNew.Cells(lni, 1).Resize(UBound(tft, 1), UBound(tft, 2)).Value = tft
                        wsNew.Cells(lni, 1).PasteSpecial xlPasteFormats   'colle uniquement le format
                        lni = lni + UBound(tft, 1)
                    End If
.../...

A+

Merci beaucoup de votre aide, votre solution fonctionne parfaitement.

Bonne journée.