Sub Test()
Dim DerLigne As Integer, MaSélection As Range, I As Integer
With Sheets("Feuil1")
DerLigne = .Range("A65535").End(xlUp).Row
For I = 1 To DerLigne
If .Cells(I, 1) <> "" Then
If MaSélection Is Nothing Then
Set MaSélection = .Range("A" & I & ":L" & I)
Else
Set MaSélection = Union(MaSélection, .Range("A" & I & ":L" & I))
End If
End If
Next I
MaSélection.Copy
End With
Sheets("Feuil2").Range("A" & Range("A65535").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub