Dim deb As Long
'---
deb = wdDoc.Bookmarks("ai2").Range.Start
wdDoc.Bookmarks("ai2").Range.Text = Feuil44.Cells(3, 5)
wdDoc.Bookmarks.Add "ai2", wdDoc.Range(deb, deb + Len(Feuil44.Cells(3, 5)))
'---
deb = wdDoc.Bookmarks("ai7").Range.Start
wdDoc.Bookmarks("ai7").Range.Text = Feuil44.Cells(3, 10)
wdDoc.Bookmarks.Add "ai7", wdDoc.Range(deb, deb + Len(Feuil44.Cells(3, 10)))
'---