Public Sub Desa()
Nom.Enabled = False
Nom.BackColor = &HC0FFFF
Nom.ForeColor = &HFF80FF
Label8.Visible = False
Cont.Visible = False
Catégorie.Enabled = False
Catégorie.BackColor = &HC0FFFF
Partenariat.Enabled = False
Partenariat.BackColor = &HC0FFFF
Préstataire.Enabled = False
Préstataire.BackColor = &HC0FFFF
Adresse.Enabled = False
Adresse.BackColor = &HC0FFFF
Adresse1.Enabled = False
Adresse1.BackColor = &HC0FFFF
Département.Enabled = False
Département.BackColor = &HC0FFFF
Ville.Enabled = False
Ville.BackColor = &HC0FFFF
CP.BackColor = &HC0FFFF
Téléphone.Enabled = False
Téléphone.BackColor = &HC0FFFF
Fax.Enabled = False
Fax.BackColor = &HC0FFFF
Email.Enabled = False
Email.BackColor = &HC0FFFF
Web.Enabled = False
Web.BackColor = &HC0FFFF
BtnEnregistrer.Caption = "Modiffier"
BtnEnregistrer.Picture = Nothing
End Sub