Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument


's assurer que ce document n'est pas une mise en plan
If oDoc.SubType <> "{BBF9FDF1-52DC-11D0-8C04-0800090BE8EC}" Then

oMyParameter = ThisApplication.ActiveDocument.componentdefinition.Parameters.UserParameters

	Try
'Change la valeur du parametre CATVAULT
Parameter("CATVAULT") = ""
	Catch
'Creer le parametre CATVAULT qui n'existe pas
oParameter=oMyParameter.AddByValue("CATVAULT", "BE", UnitsTypeEnum.kTextUnits)
	End Try
	
'creer une liste de valeurs pour le parametre CATVAULT
MultiValue.SetList("CATVAULT", "BE","Commissioning","autres")

If CATVAULT= "BE" Then
iProperties.Value("Custom", "Catégorie VAULT")= "BE"
End If
'attribue la valeur de la propriété "Catégorie VAULT" en fonction du paramètre "CATVAULT" 
If CATVAULT= "BE" Then
iProperties.Value("Custom", "Catégorie VAULT")= "BE"
End If
If CATVAULT= "Commissioning" Then
iProperties.Value("Custom", "Catégorie VAULT")= "Commissioning"
End If

If CATVAULT= "autres" Then
i = MessageBox.Show("si vous voulez entrez une catégorie non listée, veuillez contacter un administrateur", "Catégorie VAULT", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)