'une partie du code
If Sheets(Feuil2).Cells(i, 29).Value <> "" Then
Sheets("Feuil1").Cells(DelI, 21).Value = Sheets(Feuil2).Cells(i, 31).Value
Sheets("Feuil1").Cells(DelI, 1).Value = Sheets(Feuil2).Cells(i, 3).Value
Sheets("Feuil1").Cells(DelI, 3).Value = Sheets(Feuil2).Cells(i, 7).Value
Sheets("Feuil1").Cells(DelI, 24).Value = Sheets(Feuil2).Cells(i, 29).Value
DelI = DelI + 1
End If