Quelqu'un a un code qui fait ça ou qui s'en rapproche ?
Dim parag as Paragraph
For each parag in le_doc.paragraphs
parag.Range.Select
'.... et ici tes instructions
'.... pour chacun de tes mots clefs :
'.... si parag contient ce mot (utilisation de la fonction Instr) ===>> copier la sélection vers ton fichier de destination
Next