Ouvrir un fichier Excel depuis Word + modification

Bonsoir,

J'ai un document word depuis lequel je souhaite ouvrir un fichier excel, mepositionner sur un colonne "R:R" et rechercher dans cette colonne tous les "Oui" pour les remplacer par "Non" enregistrer le fichier excel et le fermer.

Set xlApp = CreateObject("excel.application")
xlApp.Workbooks.Open "C:\Users\esans\Desktop\Gestion Agents_1.xlsm"
xlApp.Visible = True
xlApp.activesheet.Columns("R:R").Select

--> je sèche là : xlApp.Selection.Replace What:="Oui", Replacement:="Non", SearchOrder:=xlByColumns, MatchCase:=True

xlApp.ActiveWorkbook.Save

Message : "l'indice n appartient pas à la sélection", il n'y a qu'une feuille ,"Feuil1", mais comme je suis dessus avec le "activesheet", je vois pas mon pb.

Quelqu'un peut m'aider ?

Merci.