Sub test()
For Each feuill In Sheets 'boucle sur tous les onglets du classeur
Select Case Left(feuill.Name, 6) 'action en fonction des 6 premières lettres du nom de l'onglet
Case "recupe" 'cas "recupe"
nbl_rest = 65536 - Sheets("ALL").Range("A65536").End(xlUp).Row
Set dest = Sheets("ALL").Range("A65536").End(xlUp).Offset(1, 0) 'définit la cellue de destination
If feuill.UsedRange.Rows < nbl_rest Then
feuill.UsedRange.Copy dest
Else
On Error Resume Next
Sheets.Add.Name = "ALL2"
On Error Goto 0
Set dest = Sheets("ALL2").Range("A65536").End(xlUp).Offset(1, 0) 'définit la cellue de destination
feuill.UsedRange.Copy dest
End If
'copie et colle la plage
End Select 'fin de l'action en fonction de...
Next feuill 'prochain onglet de la boucle
End Sub