Oups pardon eriiic, je te présente mes excuses, je ne voulais pas te froissé,
Merci Bansai64 pour ta réactivité, voici ce que j'ai modifié/
For J = 8 To 31 Step 2 à la place de 18, je ne sais pas si tu as fait le lien par rapport à mes précédents post sur le forum, mais le fichier que j'ai posté en pièce jointe de ma demande est le fichier d'origine au "Fiches PB" sur lequel tu m'as déjà beaucoup dépanné.
Dans les feuilles il peut y avoir jusqu'à douze adresses, (exemple la feuille "PB 8959") et donc en ton code ne prenait que six modules adresses. (Je reconnais que j'aurai pu t'avertir), mais d'un autre côté, j'essai de comprendre comment ça fonctionne.
Par contre la macro "CreationFichier" c'est pas ça.
En fait je voulais juste ré-enregistré le fichier, mais avec un autre nom et en supprimant la feuille "Données" que j'importe au début e la manipe.