Bonjour et merci de la réponse.
C'est bien ce que je souhaitais.
Par contre, l'action sur le CommandButton n'agissait pas.
J'ai réussi à ce qu'il soit opérationnel en enlevant les " ' " et supprimant certaines lignes de la "Sub CdeBouton1_Click()" :
Private Sub CdeBouton1_Click()
Range("B17:F21").ClearContents
cellApres.Value = "Choix !"
Unload Me
End Sub
Je ne comprends pas tous les codes dans Sub "activer()" et"UserForm_Activate()":
Les instructions suivantes en rouge :
Set
CdeBouton1.Enabled
Range("B17:F21").Find("Choix !", , xlValues, xlWhole)
If Not cellAvant Is Nothing Then
De plus je ne savais pas que l'on pouvait utiliser "Not" et "Nothing" et dans quels conditions
J'essaie de comprendre toutes les lignes pour pouvoir les utiliser avec compréhension