Bonjour,

Ici :
https://docs.microsoft.com/fr-fr/off...ultiple-ranges
j'ai trouvé ça :
Les plages nommées permettent à la propriété Range de travailler plus facilement sur plusieurs plages. L'exemple suivant fonctionne si les trois plages nommées se trouvent sur la même feuille.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub ClearNamed() 
 Range("MyRange, YourRange, HisRange").ClearContents 
End Sub
J'ai donc adapté à mes besoins, comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
'    If Not Intersect(Range("Plage_Saisies"), Target) Is Nothing Then
    If Not Intersect(Range("Plage_Saisies, Plage_Matricules"), Target) Is Nothing Then
 
        Application.OnKey "%{RETURN}", "Inser_Comment"
    Else
        Application.OnKey "%{RETURN}", ""
    End If
et ça ne fonctionne pas ! Sans doute erreur d'inattention de ma part ?!

En vous remerciant par avance pour vos lumières,
Cordialement,
jp