transposer et garder format cellule

bonsoir à tous,
j'ai un petit pb : j'ai une macro qui me permet de transposer dans une base de données mes informations via un formulaire. Seulement, une fois lancé, les cellules de mon formulaire perde leur mise en forme. je dois donc à chaque fois re-transposer mes cellules vierges pour recommencer l'opération 8O

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub transpose_dans_tableau_V02()
    Dim ligne_active_base As Integer
 
    Worksheets("Formulaire").Range("B1:B72").Copy
 
    If Worksheets("BD RESIDENTS").Range("A1") = "" Then
        ligne_active_base = 1
        Else
        ligne_active_base = Worksheets("BD RESIDENTS"). _
            Range("A65536").End(xlUp).Row + 1
    End If
 
    'Collage avec transposition'
    Worksheets("BD RESIDENTS").Range("A" & ligne_active_base). _
        PasteSpecial Paste:=xlPasteAllExceptBorders, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
    'Rendre vierge le formulaire'
    Worksheets("Formulaire").Range("B1:B72").ClearContents
    'Désactive le mode copier/coller
    Application.CutCopyMode = False
End Sub