Remerciement + Code

Bonjour =E0 tous,

Je me permet de vous envoyer le r=E9sultat de vos r=E9ponse.
je pense notament =E0 Anacoluthe et papou. J'ai repris vos=20
id=E9es et j'ai fait ce code suivant.
=20

Private Sub Document_Open()

Dim Statut As Variant
Dim ComboBoxObj As InlineShape

Statut =3D Array("Yes", "No", "Incertain", "Bloquant")

For Each ComboBoxObj In ActiveDocument.InlineShapes
If ComboBoxObj.Type =3D wdInlineShapeOLEControlObject=20
Then
ComboBoxObj.OLEFormat.Object.List =3D Statut
End If
Next ComboBoxObj
End Sub

Je vous signale que chacun de vous =E0 r=E9solu une part du=20
probl=E8me et ce code fonctionne sous Word97.

Je vous remercie encore pour votre aide=20