Codage VBA (copier format)?

Nonno48 -   
 With Range("Tableau8").ListObject  'ce tableau
               .ListRows.Add(1).Range.Resize(, 17).Value = Application.Transpose(Sheets("Formulaire").Range("B4:B20").Value)
               
          End With

Bonjour le Forum

Ce codage fonctionne très bien, sauf l qu'il recopie les valeurs je souhaiterais qu'il copie aussi les formats.

Quelle modif à apporter à ce code?

Merci d'avance

Nonno48

2 réponses

  1. Nonno48 Auteur

    Merci yg_be

    Ho! là, un peu compliqué pour Moi.

    Merci encore et bonne journée

    Nonno48