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

Sub Macro1()

Dim ii As Integer 'ii est l'indice qui va être incrémenté

'copie de la plage de cellule sur la feuille désirée
Sheets("Informations").Range("J2:AK17").Copy

'sélection de la feuille ou copier la plage de cellule
Sheets("Carnet").Select

'début de la boucle là je n'y arrive plus.

ii = ii + 1
Do

Loop Until Cells(ii, 1) <> "fin" 'quand on arrive au mot "fin" on colle les données copiées et on met en forme la hauteur de ligne

ActiveSheet.Unprotect
'je n'arrive pas à coller non plus
ActiveCell.Paste
Selection.RowHeight = 28

'protection de la feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True

End Sub

Merci de votre aide

Bonjour,

essaies

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

Merci Michel,

Je viens d'essayer mais cela ne me colle pas mes lignes avec mes formules. par contre cela m'inscrit bien le mot "fin" à la suite du collé 15lignes plus bas.
j'avais fait un truc hier soir après le post qui semble fonctionner mais je pense que je peux le simplifier surtout quand je vois ton code.

J'ai remplacé "*" par "fin" dans ton code car ma colonne A ne sera pas forcement totalement rempli lors de l'ajout des lignes.

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 

Voici ce que j'ai actuellement après épurement.
Par contre je dois enlever la protection de la feuille 'Carnet' avant de copier sur la feuille 'Informations' sinon cela ne me colle pas les formules, mais juste la mise en forme.

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