Sub Tst()
Dim S As Worksheet
Dim Fichier, Repertoire As String
Dim Destination, MaPlage As Range
Repertoire = "E:\"
Fichier = Dir(Repertoire & "*MISSION*.xls")
If Len(Fichier) > 0 Then
Workbooks.Open Filename:=Repertoire & Fichier
End If
For Each S In Worksheets
If S.Name Like "*CR*" Then
S.Activate
Rows("1:2").Delete Shift:=xlUp
Columns("A:K").AutoFilter
Set Destination = Workbooks("macro immat.xls").Sheets("Extraction").Range("A1")
Set MaPlage = ActiveSheet.AutoFilter.Range
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 1).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
MaPlage.Copy Destination
End If
Next Ws
End Sub