If .Cells(i, "D") <> "Non" Then
derligne2 = Sheets("Récap").Cells(Rows.Count, "B").End(xlUp).Row + 1
.Range(.Cells(i, 2), .Cells(i, 6))
' .Range(.Cells(i, "B"), .Cells(i, "F")).Copy
Sheets("Récap").Range("B" & derligne2).Value = ch
'Sheets("Récap").Range("B" & derligne2).PasteSpecial Paste:=xlPasteValues
End If