[vba ]

Private Sub maj_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("F5").End(xlDown).Row).ClearContents

Set ShtTrav = ThisWorkbook.Sheets.Add

For CptFeuil = 0 To UBound(FeuillesSource)
With Sheets(FeuillesSource(CptFeuil))
.Range("E6:J" & .Range("J65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ShtTrav.Range("A" & ShtTrav.Range("A65536").End(xlUp).Row + 1), Unique:=True 'Selectionne les plages de donnée sur chaque feuille

End With
Next CptFeuil
ShtTrav.Range("A1:F" & ShtTrav.Range("F65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A" & Range("A65536").End(xlUp).Row + 3), Unique:=True

Application.DisplayAlerts = False
ShtTrav.Delete Application.DisplayAlerts = True
Set ShtTrav = Nothing
End Sub

Cliquez pour agrandir...