Bonjour,
Ci-dessous un essai qui sera surement à adapter en fonction des possibles spécificités sur ton fichier de base
Sub test_copie()
Dim derlig
Worksheets("base").Copy after:=Worksheets(1)
ActiveSheet.Name = "Récap"
derlig = Sheets("Récap").Range("B1048576").End(xlUp).Row
For Each cell In Range("A1:A" & derlig)
If cell = "" Then
cell.Value = cell.Offset(-1, 0)
cell.NumberFormat = "dd/mm/yyyy"
End If
Next cell
Rows("1:1").Delete
Range("A1:D" & derlig - 1).AutoFilter
ActiveSheet.Range("$A$1:$D" & derlig - 1).AutoFilter Field:=2, Criteria1:=Array( _
"Site", "Total secteur", "="), Operator:=xlFilterValues
Range("A1").Activate
ActiveCell.Offset(1, 0).Select
Do While ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Range("A1").Select
End Sub