SI ActiveCell d'une feuille spécifique

Bonjour le forum

Voilà la problématique :

J'ai une macro qui me permet d’insérer un commentaire dans la cellule active d'une feuille. Si la cellule active n'appartient pas à une plage définie, cette action est impossible (voir code ci dessous). Le code fonctionne très bien. Le problème est que je voudrais pouvoir "personnaliser" cette plage en fonction des feuilles du classeur.

Pour simplifier la réflexion tavaillon avec Feuil1 et Feuil2 pour créer un exemple que se saurais sans problème retranscrire à mon fichier

Pour info le code ci-dessous se trouve dans un UserForm sous l'action de CommandButton1_Click()

Par avance, merci de l’intérêt porté à mon problème

If Not Intersect(ActiveCell, Range("A1:B5")) Is Nothing Then
'Code pour ajouter le commentaire (je l'ai enlevé pour alléger le code pour ce topique) 
Else
MsgBox "vous n'etes pas autorisé à inserer un commentaire ici", vbExclamation, "Erreur"
Exit Sub
End If

Salut,

Voici un exemple de code qui permet de travailler sur deux plages différentes en fonction de la feuille active.

Sub Demo()

If ActiveSheet.Name = "Feuil1" Then
    i = "A1:A3"
Else
    i = "C4:D5"
End If

Range(i).Select

End Sub

A adapter à ton code ainsi :

If Not Intersect(ActiveCell, Range(i)) Is Nothing Then

Cordialement.

C'est super ça marche nickel, Merci