Prise en compte des colonnes cachées vba

'ici boucle sur fichier For......
ActiveWorkbook.Worksheets(1).Activate ' classeur source


With Sheets(1)
 For i = 23 To 9168 'si 9168 est fixe sinon calculer
    If Not .Rows(i).EntireRow.Hidden Then
             k = k + 1
      For n = 0 To 12
        t(k, n) = .Cells(i, n + 4) 'copie de la ligne en tablo
      Next
    End If
 Next
End With
With Workbooks(strWB).Sheets("Feuil1")
   lgDerLig = .Range("A65536").End(3).Row + 1 'calcul derligne
    .Range("A" & lgDerLig).Resize(k, UBound(t, 2)) = t 'copie du tablo
End With
t = "" 'on efface pour refaire une autre boucle
'fin boucle des fichiers 'Next

Sub test()
'Zone à copier
Const Acopier = "D2:Q30"
'déclaration
Dim Zone As Range, E As Range, nbCol As Long

Application.ScreenUpdating = False
'Nombre de colonne à copier
nbCol = Range(Acopier).Columns.Count

' zone à copier - on prend les cellule visibles de la zone à copier
'               - on étend cette zone aux lignes entières
'               - et on fait l'intersection des lignes entières avec la zone à copier
With Sheets("Feuil1")
  Set Zone = Intersect(Range(Acopier).SpecialCells(xlCellTypeVisible).EntireRow, Range(Acopier))
End With

'on boucle sur chaque Area de zone - un area représente un ensemble de lignes visibles consécutives
For Each E In Zone.Areas
    Sheets("Feuil2").Range("a" & Rows.Count).End(xlUp).Offset(1).Resize(E.Rows.Count, nbCol).Value = E.Value
Next E

Application.ScreenUpdating = True
Sheets("Feuil2").Activate
End Sub