Pour faire plus propre, tu pourrais ajouter un champ booléen (oui/non) à la table Categories_Intranet, appelons-le Avertir.
Tu lui donne la valeur par défaut Non et tu va cocher les catégories que tu veux faire afficher. C'est très important de mettre une valeur par défaut, car les nouveaux champs contiendront Null sinon.
Ajoute ce champ à la source de ton formulaire.
Change :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
If Me.[Titre_categorie] = 4 _
Or  Me.[Titre_categorie] = 5 _
Or Me.[Titre_categorie] = 6 Then
par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Nz(Me.[Avertir], False) Then
La fonction Nz retourne la valeur de son 2e paramètre lorsque le premier est Null. Il retourne la valeur du premier sinon. C'est pour éviter des problèmes avec les enregistrments existants, qui auront le champ Avertir à Null. Tu peux aussi créer une requête de mise à jour qui les mets tous à Faux, avant de mettre les valeurs désirées à Vrai.
Ça devrait fonctionner.