set leDoc =traitementTexte.documents.open(ActiveWorkbook.Path &"/essai.doc") ' ça marche bien le fichier Word s'ouvre
for i = 1 to 4 ' vue que le mot ne pourras être présent que 4 fois
leDoc.content.Find.Execute findtext:="monmot", Forward=true
leDoc.Selection.Expand unit:=wdParagraph ' il me trouve en paragraphe 4 le mot en pas à pas
leDoc.Selection.Range.Delete ' il n'efface pas la ligne !
Next i ' il ne boucle pas à deux et passe à la suite de la macro !