Exporter plusieurs lignes

Bonjour,

Dans mon exemple joint, j'ai un tableau duquel je dois exporter le contenu vers un autre tableau pour pouvoir l'analyse en fin d'année ou de trimestre.

J'ai un code qui va bien quand on sait exactement combien de ligne il y aura à exporter.

Ce n'est pas mon cas, je peux en avoir une comme 25 (maximum)

Les lignes du tableau sont remplies entierrement et se suivent les unes à la suite des autres.

Y a t'il une autre solution que de tester à chaque fois la première cellule?

Merci pour votre aide,

Jeremy,

bonsoir,

une proposition de correction. adapter la ligne en commentaire si nécessaire.

Private Sub CommandButton1_Click()
    Dim ThWbk As Workbook
    Set ThWbk = ThisWorkbook
    dl = ThWbk.Sheets("feuil1").Cells(Rows.Count, "B").End(xlUp).Row
    'Workbooks.Open Filename:=ThisWorkbook.Path & ""
    If ThWbk.Sheets("Feuil1").Range("B8") <> "" Then
        With Workbooks("Tableau de suivi controles").Sheets("2014")
            iLn = .Range("A" & Rows.Count).End(xlUp).Row + 1
            ThWbk.Sheets("Feuil1").Range("B8:B" & dl).Copy .Range("A" & iLn)
            ThWbk.Sheets("Feuil1").Range("H8:H" & dl).Copy .Range("B" & iLn)
            ThWbk.Sheets("Feuil1").Range("N8:N" & dl).Copy .Range("C" & iLn)
            ThWbk.Sheets("Feuil1").Range("Q8:Q" & dl).Copy .Range("D" & iLn)
            ThWbk.Sheets("Feuil1").Range("T8:T" & dl).Copy .Range("E" & iLn)
            ThWbk.Sheets("Feuil1").Range("W8:W" & dl).Copy .Range("F" & iLn)
        End With
    End If
End Sub

Bonjour et merci pour ton intervention,

Je n'ai pas encore eu le temps tester ta proposition, mais je le ferais dans les prochains jours.

D'avance encore merci,