Recopie formats

 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