Merci Roger/effectivement en enlevant le point devant (2) ça va mieux
Mais pour le reste .........
Voila ou j'en suis :
Sub PremièreCelluleVideEnPartantDuBas()
ActiveCell.Offset(0, 0).Range('A1:T1').Select
selection.Copy
With Worksheets('2005')
.Activate
.Range('A65536').End(xlUp)(2).Select
End With
End Sub
Si je ne filtre pas la colonne, le rang a1 t1 (par ex ligne 178)est bien copié, la 1ere cellule vide (ligne 190)est bien selectionnée
Mais le copier coller ne s'effectue pas
Si je filtre la colonne, le rang a1 t1 est bien copié mais mais la 1ere cellule selectionneé se trouve en ligne 179 (et non 190) et le copier coller ne s'effectue pas
Qui aurait une idée???????
cordialement