Sub d1_a1()
Dim i As Integer, derlig As Integer, j As Integer
derlig = Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Recap")
For i = 1 To derlig
.Cells(i, 2) = Sheets("FEUIL1").Cells(i, 2)
.Cells(i, 3) = Sheets("FEUIL1").Cells(i, 3)
.Cells(i, 4) = Sheets("FEUIL1").Cells(i, 4)
.Cells(i, 5) = Sheets("FEUIL1").Cells(i, 5)
.Cells(i, 6) = Sheets("FEUIL1").Cells(i, 6)
.Cells(i, 7) = Sheets("FEUIL1").Cells(i, 7)
.Cells(i, 8) = Sheets("FEUIL1").Cells(i, 8)
.Cells(i, 9) = Sheets("FEUIL1").Cells(i, 9)
Next
Sheets("Recap").Select
For j = 1 To derlig
If .Cells(j, 2) <> " " Then
.Cells(j + 1, 2) = Sheets("FEUIL2").Cells(j, 2)
.Cells(j + 1, 3) = Sheets("FEUIL2").Cells(j, 3)
.Cells(j + 1, 4) = Sheets("FEUIL2").Cells(j, 4)
.Cells(j + 1, 5) = Sheets("FEUIL2").Cells(j, 5)
.Cells(j + 1, 6) = Sheets("FEUIL2").Cells(j, 6)
.Cells(j + 1, 7) = Sheets("FEUIL2").Cells(j, 7)
.Cells(j + 1, 8) = Sheets("FEUIL2").Cells(j, 8)
.Cells(j + 1, 9) = Sheets("FEUIL2").Cells(j, 9)
End If
Next
End With
End Sub