Voilà les ligne incriminées
'===============================> Modifs
'ici une boucle sur tous les controls, si un est vide on sort et on set le focus dessus
'For Each CTRL In Me.Controls
'If CTRL = '' Then MsgBox 'Donnée Incomplete', vbCritical, T: CTRL.SetFocus: Exit Sub
'Next CTRL
'LIGNES COMMENTEES SINON ERREUR
Egalement dans la procédure
Private Sub CmdSupprimer_Click()
Si on ote les '
On obtient une erreur