Bonjour,
Malgré que je n'ai pas compris votre histoire de copie je tente quand même un bout de code pour copier la dernière ligne visible. Si ce n'est pas ça merci de préciser le contexte et le besoin, voir un fichier représentatif avec comparatif avant VS après car je ne sais pas dans quel sens s'effectue la copie, les données d'entrées, d'où proviennent-elle, etc ... Un copier/coller c'est assez large comme notion :
Sub POS()
Dim LR%
With ActiveSheet
LR = .Cells(.Rows.Count, 2).End(xlUp).Row
.Cells(LR, 1).Offset(1).EntireRow.Hidden = False
.Cells(LR, 1).Offset(-35).EntireRow.Hidden = True
End With
End Sub
Sub NEG()
Dim LR%
With ActiveSheet
LR = .Cells(.Rows.Count, 2).End(xlUp).Row
.Cells(LR, 1).EntireRow.Hidden = True
.Cells(LR, 1).Offset(-36).EntireRow.Hidden = False
End With
End Sub
Sub COPIE()
Dim LR%
With ActiveSheet
LR = .Cells(.Rows.Count, 2).End(xlUp).Row
.Cells(LR, 1).Resize(1, 6).Copy 'Copie sur largeur de 6 colonnes
End With
End Sub
Cdlt,