CB60
XLDnaute Barbatruc
Bonsoir à tous
Quelqu'un a t il une astuce pour remplacer cela qui ne fonctionne pas
Quelqu'un a t il une astuce pour remplacer cela qui ne fonctionne pas
Code:
Sub Couper()
Set Destination = Sheets("Réalisé").[A65536].End(xlUp)(2)
Set filtre = Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
filtre.EntireRow.Select
Selection.Cut
Destination.Paste
End Sub