Sub Copy_paste()
'
Dim WsScr As Worksheet, WsDest As Worksheet, MaPlage As Range
Set WsScr = Worksheets("Données")
Set MaPlage = WsScr.Range("A2:I4000").SpecialCells(xlCellTypeVisible)
' special cell ne copie que les cellules visibles a enlever si on veut tout'
' colle dans feuille prédéfinie'
Set WsDest = Worksheets("DV-en-retard")
MaPlage.SpecialCells(xlVisible).Copy WsDest.Range("A2")