Sub recopie()
Dim dlg&, lig&: Application.ScreenUpdating = 0
dlg = Cells(Rows.Count, 1).End(3).Row + 1
For lig = 2 To 12
If Cells(lig, 24) <> "" Then
Cells(lig, 1).Resize(, 5).Copy
Cells(dlg, 1).PasteSpecial -4163
dlg = dlg + 1
End If
Next lig
Columns(11).Replace "D", "C", 1, 1, True
End Sub