If vdonnées("restrictions") <> "" Then
If InStr(1, vdonnées("restrictions"), "Docteur DUPONT Pierre") Then CheckBox1.Value = False
If InStr(1, vdonnées("restrictions"), "Docteur DURAND Alain") Then CheckBox2.Value = False
If InStr(1, vdonnées("restrictions"), "Docteur POPOL Thierry") Then CheckBox3.Value = False
If InStr(1, vdonnées("restrictions"), "Docteur TOTO Marc") Then CheckBox4.Value = False
' etc...
End If