'---
If IsError([PasDeBouton]) Then
Cmb.FaceId = 17 'à adapter
bouton(1).bouton.Picture = Cmb.Picture
bouton(1).bouton.PicturePosition = fmPicturePositionLeftCenter
Cmb.FaceId = 255 'à adapter
bouton(2).bouton.Picture = Cmb.Picture
bouton(2).bouton.PicturePosition = fmPicturePositionLeftCenter
End If