Microsoft 365 Sélection de plusieurs cellules sur même ligne

[Usine à gaz]

Bonjour à toutes et à tous,

J'ai un autre petit souci que je ne parviens pas à résoudre :

Pour une meilleure visibilité, quand clic en col B = sélection des cellules C à R de la même ligne
Mon souci :
dans le fichier test joint
Les cellules J3 à L15 sont fusionnées
Quand clic sur cel C13 - C14 ou C15 il y a sélection sur 3 lignes
(je suis obligé de garder ces cellules fusionnées)
Est-il possible de sélectionner qu'une ligne (sans prendre en compte les cellules fusionnées)
Mes recherches et tentatives n'ont pas abouti
Auriez-vous la solution ?
Avec mes remerciements,
Je vous souhaite une belle fin de journée,
Amicalement,
lionel,

 

[pierrejean]

Bonjour arthour
Un essai
Il est possible également de sélectionner J13:L15

 

[Usine à gaz]

Bonjour Robert,
Merci d'être là
C'est nickel ... Un grand merci
lionel,

 

[pierrejean]

Je transmet à Robert

 

[job75]

Bonjour arthour973, pardon Lionel, bonjour Robert, pardon Pierre

Private Sub Worksheet_SelectionChange(ByVal r As Range)
If Intersect(ActiveCell, Range("B10:B19")) Is Nothing Then Exit Sub
[J13:L15].UnMerge
ActiveCell(1, 2).Resize(, 16).Select
[J13:L15].Merge
End Sub

A+

 

[Usine à gaz]

Je transmet à Robert

LOL, Bonjour pierrejean

Désolé de mon erreur
C'est nickel ... Un grand merci pierrejean
lionel,

 

[Usine à gaz]

Bonjour Gérard,
LOL on se sait plus si on est mâle ou femelle
Merci Gérard pour ton code nickel comme d'hab
lionel,

 

[Usine à gaz]

Re-Gérard
Je suis allé voir qui est ce "Merge" que je n'ai jamais connu parmi mes amis lol
Mais c'est quelqu'un de bien puisque ça fonctionne
Je viens d'apprendre encore une fois.
Merci gérard,
lionel,

 

[job75]

Il y en a qui ont horreur des cellules fusionnées, moi je m'en suis toujours accommodé.

 

[Usine à gaz]

Re-Gérard,

Effectivement, on en dit tellement de "mal" que je m'en sert le moins possible mais il arrive que je n'ai pas d'autre choix