Copier aussi le format de police

Bonsoir , j'ai ce code que je voudrais compléter :

  Référence = Target
    With Sheets("PARC")
        For i = 7 To .Range("C65000").End(xlUp).Row
            If .Cells(i, 3) = Référence Then
                GoTo Etiquette
            End If
        Next
Etiquette:

    Intérieur = .Cells(i, 3).Interior.Pattern
    Couleur = .Cells(i, 3).Interior.Color

    End With

    Target.Interior.Pattern = Intérieur
    Target.Interior.Color = Couleur

End If

Je voudrais que soit copier le format de police : taille , couleur , gras , souligné.

Pour info je ne veux pas que les bordures de cellules destination soient remplacées.

Merci pour votre aide

Salut,

C'est pas évident sans ton fichier

A tester :

Dim Taille_police As Integer, Souligné As Integer, Couleur_police As Long, Gras_ou_non As Boolean

    Taille_police = .Cells(i, 3).Font.Size
    Souligné = .Cells(i, 3).Font.Underline
    Couleur_police = .Cells(i, 3).Font.Color
    Gras_ou_non = .Cells(i, 3).Font.Bold

    Target.Font.Size = Taille_police
    Target.Font.Underline = Souligné
    Target.Font.Color = Couleur_police
    Target.Font.Bold = Gras_ou_non

Cordialement.

Merci , c'est bien cela : ça fonctionne.

Bonne soirée