Macro : Boucle (rajout de ligne copié en fin de tableau)

Sub xxx()
Dim Lig As Byte, Col As Byte, zone()
Dim Ligvide As Integer

With Sheets("Informations").Range("J2:AK17")
     Lig = .Rows.Count
     Col = .Columns.Count
     zone = .Value
End With

With Sheets("carnet")
     Ligvide = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
     .Unprotect
     .Cells(Ligvide, "A").Resize(Lig, Col) = zone
     .Protect
     .Select
End With
End Sub

With Sheets("carnet") 
     Ligvide = .Columns("A").Find("fin", , , , , xlPrevious).Row + 1 
      .Unprotect 
      .Cells(Ligvide, "A").Resize(Lig, Col) = zone 
     .Protect 
     .Select 
End With 
End Sub 

Sub Macro1()
'Rajout de lignes à la fin du tableau
'deprotection de la feuille
        With Sheets("Carnet").Unprotect
        End With
'copie de la plage de cellule sur la feuille désirée
        With Sheets("Informations").Range("J2:AK17").Copy
        End With
'sélection de la feuille ou copier la plage de cellule
        With Sheets("Carnet")
'début de la boucle
            Range("A7").Select
            Do While ActiveCell.Value <> "fin"
            ActiveCell.Offset(1, 0).Select
            Loop
'quand on arrive au mot "fin" on colle les données copiées et on met en forme la hauteur de ligne
            .Paste
            Selection.RowHeight = 28
'protection de la feuille
            .Protect
        End With
    End Sub