Microsoft 365 VBA: PasteSpecial refuse de fonctionner

Ce sont des xlsx, il n'ont pas de module

Ok je vois
un instant
Après la fin de la boucle il faut insérer le nom & nom service, ce n'est pas encore fait, mais indispensable avant de copier la prochaine fiche.

J'ai placé la routine qui doit vider les cellules vides à l'oeil mais pas vides pour Excel à un autre endroit mais elle ne fonctionne pas: elle ne vide pas les lignes apparemment vides après le triage.
Comment faire?

Enlevez moi ces Sheets(n).Activate et ces Select.
Déclarez une variable WshSrc As Worksheet
et faites For Each WshSrc In wbQuelle.Worksheets
et juste avant le collage spécial faites le WshSrc.Range("F5:AC66").Copy
Pour la feuille cible, si ç'en est une du classeur qui porte la macro, vous pouvez utiliser comme expression Worksheet le nom de l'objet worksheet qui représente la feuille. Dans votre classeur joint l'objet Worksheet qui représente la feuille "Saisie" s'appelle Feuil13. Vous pouvez donc faire Feuil13.Range("E" & lastRow + 1).PasteSpecial Paste:=xlPasteValues etc.
Mais moi je préfèrerais Je n'utilise jamais la méthode Range de l'objet Application, je ne l'aime pas. Toujours seulement celle de l'objet Worksheet. Comme ça il n'est pas nécessaire que la feuille soit active.

Dranreb à dit:

For Each WshSrc In wbQuelle.Worksheets

Cliquez pour agrandir...

Là réside mon prochain problème:
Toutes les feuilles d'un classeur doivent être parcourues et copiées sauf 3 qui s'appellent dans tous les classeurs-source Codes, Tableau, et la feuille cachée Résumé.
Comment faire pour les exclure?

Faite un Select Case WShSrc.Name: Case "Codes", "Tableau", "Résumé": Case Else
Terminez le tout par End Select avant le Next WshSrc