Sub Répartition()
Dim F As Worksheet
Application.ScreenUpdating = False
For Each F In Worksheets
If F.Name <> "PILOTAGE" And F.Name <> "RECAP" Then
F.Cells.Clear
F.Range("hd1") = "SECTION"
F.Range("hd2") = F.Name
Sheets("PILOTAGE").Range("AB9").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=F.Range("hd1:hd2"), CopyToRange:=F.Range("A1:K1"), Unique _
:=False
F.Range("hd1:hd2").Clear
End If
Next F
Application.ScreenUpdating = True
End Sub