Recopie formats

Bonjour,
j'ai un soucis avec une formule
je voudrais copier les formats de la dernière ligne colonne de "A:H" et colonne "Z"
je tourne en rond avec cette formule qui me recopie toute la colonne

 With Sheets("Tva")
     .Select
     .Unprotect
   Dim lgLigFinH As String
Dim lgLigFinM As String
Application.ScreenUpdating = False
     ' Dernière ligne dans la 1feuille
    lgLigFinM = Range("A1048576").End(xlUp).Row
    ' Dernière ligne vide dans la feuille 
    lgLigFinH = Range("A1048576").End(xlUp).Row + 1
    ' Copier les formats de la ligne precedente 
    Worksheets("Tva").Range("A2:H" & lgLigFinM).Copy
   Worksheets("Tva").Range("A" & lgLigFinH).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    .Range("Z2:Z" & lgLigFinM).Copy
   .Range("Z2:Z" & lgLigFinH).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
       xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    End With

merci de votre aide

Slts A bientôt
Surplus