Sub Macro1()
Dim F As Worksheet 'déclare la variable F (onglet Fiche)
Dim N As Worksheet 'déclare la variable N (onglet Nouvel Récap)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim DL As Integer 'décalre la variable DL (Dernière Ligne)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Set F = Worksheets("Fiche") 'définit l'ontglet F
Set N = Worksheets("Nouvel Récap") 'définit l'ontglet N
TV = F.Range("A13").CurrentRegion 'définit le tableau des valeurs TV
For I = 2 To UBound(TV) 'boucle sur toutes les ligne I du tableau des valeurs TV (en partant de la seconde)
'si la donnée ligne I colonne 14 (=> N) de TV est égale à 0, définit la dernière ligne DL
'en tenant compte que le tableau commence à la ligne 13, sort de la boucle
If TV(I, 14) = 0 Then DL = I + 11: Exit For
Next I 'prochaine ligne de la boucle
'définit la cellule de destination DEST, première cellule vide de la colonne A de l'onglet N
Set DEST = N.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
F.Range("B14:Q" & DL).Copy DEST 'copie la plage B14:Q...DL et la colle dans DEST
End Sub