Sub recup_feuilles_CATALOGUE()
For i = 1 To nblig
If a = 30 Then
Application.DisplayAlerts = False
Application.Workbooks.Save
a = 1
Application.DisplayAlerts = True
End If
Range("A" & i).Select
chemin = Range("A" & i).Value
nblig = Sheets("Liste").Application.WorksheetFunction.CountA(Range("A:A"))
posi_ongl = Sheets.Count
Workbooks.Open Filename:=chemin
For Each feuill In ActiveWorkbook.Worksheets
If feuill.Name Like "CATALOGUE*" Then
feuill.Copy After:=Workbooks(classeur_receveur).Sheets(posi_ongl)
For Each classeur In Workbooks
If classeur.Name <> ThisWorkbook.Name Then
classeur.Close
End If
Next classeur
Sheets("Liste").Select
End If
Next feuill
a = a + 1
Next i
End Sub