Sub Export()
Dim i&, F As Worksheet
Set F = Sheets("recupération")
With Sheets("table1")
For i = 3 To .Cells(.Rows.Count, 3).End(3).Row
If .Cells(i, 3) = Date Then
Application.Union(.Cells(i, 6), .Cells(i, 7), .Cells(i, 9)).Copy _
F.Cells(Application.WorksheetFunction.Max(F.Cells(F.Rows.Count, 1).End(3)(2).Row, 3), 1)
With .Cells(i, 19)
.Value = "Env"
.Interior.ThemeColor = xlThemeColorAccent3
.Interior.TintAndShade = -0.249946592608417
End With
End If
Next i
End With
End Sub