Sub Image3_QuandClic()
Dim lig As Long, cel As Range
Sheets("D-DO").Cells.ClearContents
Sheets("D-DC").Cells.ClearContents
With Sheets("Feuil1")
For Each cel In Range("A1:A" & [C65536].End(3).Row)
If cel = "D-DO" Then
lig = Sheets("D-DO").[A65536].End(xlUp).Row + 1
Sheets("D-DO").Cells(lig, 1) = .Cells(cel.Row, 1)
Sheets("D-DO").Cells(lig, 2) = .Cells(cel.Row, 3)
Sheets("D-DO").Cells(lig, 3) = .Cells(cel.Row, 4)
Sheets("D-DO").Cells(lig, 4) = .Cells(cel.Row, 7)
Sheets("D-DO").Cells(lig, 5) = .Cells(cel.Row, 17)
End If
If cel.Offset(, 1) = "D-DC" Then
lig = Sheets("D-DC").[A65536].End(xlUp).Row + 1
Sheets("D-DC").Cells(lig, 1) = .Cells(cel.Row, 2)
Sheets("D-DC").Cells(lig, 2) = .Cells(cel.Row, 3) 'c
Sheets("D-DC").Cells(lig, 3) = .Cells(cel.Row, 4) 'd
Sheets("D-DC").Cells(lig, 4) = .Cells(cel.Row, 19) 's
Sheets("D-DC").Cells(lig, 5) = .Cells(cel.Row, 29) 'ac
End If
Next cel
End With
Sheets("D-DO").Rows(1).Delete: Sheets("D-DC").Rows(1).Delete
End Sub