Sub testII()
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("bilan").Rows("3:12345").Clear
For Each ws In Worksheets
If ws.Name Like "j*" Then
dl = ws.Range("A65536").End(xlUp).Row
ws.Rows(2).Resize(dl).Copy Sheets("bilan").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next ws
End Sub