Bonjour Dan,
C'est exactement ce que je souhaitais, merci de partager tes compétences au service des autres.
Tu n'as pas a être désolé pour le retard, c'est moi qui n'a pas été assez précis dans ma demande.
Je retiens la leçon pour limiter à une plage.
If Not Intersect(ActiveCell, Range("B10:M20")) Is Nothing Then
Je passe le sujet en résolu.
Et encore pour l'aide que tu m'as apporté.
Bonne journée.
Très cordialement.