Sélection des données non vide.

Sub test()
Dim zone As Range
x = Range("A" & Rows.Count).End(xlUp).Row
y = Range("B" & Rows.Count).End(xlUp).Row
w = Range("B" & Rows.Count).End(xlUp).Row
derlin = 0
If x > derlin Then derlin = x
If y > derlin Then derlin = y
If w > derlin Then derlin = w
For n = 2 To derlin
If Range("A" & n) <> "" Or Range("B" & n) <> "" Or Range("C" & n) <> "" Then
    If Not zone Is Nothing Then
       Set zone = Application.Union(zone, Range("A" & n & ":C" & n))
    Else
       Set zone = Range("A" & n & ":C" & n)
    End If
End If
Next
zone.Copy Destination:=Range("F2")
End Sub