Sub selectionnerCopierTrans_list()
Dim Plg As Range, dlig&, Lig&
Application.ScreenUpdating = False
dlig = Cells(Rows.Count, 6).End(xlUp).Row: If dlig < 5 Then Exit Sub
Set Plg = Range(Cells(dlig, 5), Cells(dlig, 6))
For Lig = 5 To dlig - 1
If Not IsEmpty(Cells(Lig, 6)) Then Set Plg = Union(Plg, Range(Cells(Lig, 5), Cells(Lig, 6)))
Next Lig
Plg.Select: Selection.Copy
End Sub