Bonsoir GMB,
Merci beaucoup pour ton aide et pour ton code. La macro fonctionne super bien, j’ai testé plusieurs scénarios cas et tout semble fonctionner.
Je me suis aperçu d’une mini-coquille concernant la copie de Q46 dans Fi car le code
fb.Range("Q46").Copy
fa.Range("Q" & i + 5).PasteSpecial xlPasteValues
Il faudra que je remplace par fa.Range("F" & i + 5).PasteSpecial xlPasteValues
Aussi, ma seule réelle problématique est que mes deux fichiers ne sont pas dans le même dossier – dans ce cas puis-je remplacer :
chemin = ThisWorkbook.Path & "\"
par
chemin = C:\ Essai & "\"
si C: \Essai est le chemin d’accès au dossier dans lequel se trouve le fichier B ?
Enfin, en ce qui concerne le fichier B, en fin de macro, je souhaiterais masquer tous les onglets dont la cellule A11 ne contient aucune information puis exporter les onglets restants (non masqués) vers une impression pdf à stocker dans un dossier dont je connais le chemin (par exemple C:\Desktop\Essai) puis enregistrer le fichier b, le fermer et le renommer en rajoutant l'extenstion_Ok. Pour le fichier A, je souhaite le laisser ouvert comme codé dans ta macro.
Est-ce possible ?
Bonne fin de journée et encore merci pour le partage de tes connaissances.