Sub test()
Sheets("Récap.Journalier").Select
Range("C2").Select
datetrouv = ActiveCell.Value
Sheets("données").Select
RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
For i = 3 To RowCount
Range("A" & i).Select
compar = ActiveCell.Value
If compar = datetrouve Then
ActiveCell.EntireRow.Copy
Sheets("Récap.Journalier").Select
RowCount1 = Cells(Cells.Rows.Count, "a").End(xlUp).Row
Range("A" & RowCount1 + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("données").Select
End If
Next
End Sub