Sub Copy_vente_Cells_BIS()
Dim rOF%, rCF%, sOF As Worksheet, sCF As Worksheet
Set sOF = Worksheets("VENTE"): Set sCF = Worksheets("HISTQUE VENTE")
rCF = 2
For rOF = 7 To 12
If sOF.Cells(rOF, 1) > CDate("01/01/2020") Then
sCF.Cells(Rows.Count, 1).End(3)(2).Resize(, 6) = sOF.Cells(rOF, 1).Resize(, 6).Value
rCF = rCF + 1
End If
Next
End Sub