Salut,
Il me semble que c'est ce que tu voulais, je passe bien par un tableau variant.
Quand j'écris:
With Plage
T = .Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Value
End With
'T est bien variant auquel j'affecte la plage filtrée mais sans la 1 ère ligne
ensuite j'écris le résultat
.[A65536].End(xlUp)(2).Resize(UBound(T), UBound(T, 2)) = T
Mets un exemple avec ton début de code sinon car je vois pas ce que tu cherches à faire
A+++