Option Explicit
Private Sub CommandButton1_Click()
Dim ShtTrav As Worksheet
Dim FeuillesSource As Variant
Dim CptFeuil As Byte
FeuillesSource = Array("P1-09", "P2-09", "P3-09", "P4-09")
Range("A5:F" & Range("A5").End(xlDown).Row).ClearContents
Set ShtTrav = ThisWorkbook.Sheets.Add
For CptFeuil = 0 To UBound(FeuillesSource)
With Sheets(FeuillesSource(CptFeuil))
.Range("E6:J" & .Range("E65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ShtTrav.Range("A" & ShtTrav.Range("A65536").End(xlUp).Row + 1), Unique:=True
End With
Next CptFeuil
ShtTrav.Range("A2:F" & ShtTrav.Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A5"), Unique:=True
Application.DisplayAlerts = False
ShtTrav.Delete
Application.DisplayAlerts = True
Set ShtTrav = Nothing
End Sub