Dim i As Integer
Dim Derlign As Integer
Sheets("Feuil1").Select
With Sheets("Feuil1")
For i = 4 To .Range("G65000").End(xlUp).Row
If .Cells(i, 7) <> "" Then
With Sheets("Feuil2")
Derlign = .Range("C65000").End(xlUp).Row + 1
.Cells(Derlign, 3) = Sheets("Feuil1").Cells(i, 7)
.Cells(Derlign, 3).HorizontalAlignment = xlLeft
End With
End If
Next
End With
Sheets("Feuil2").Select