XL 2016 Coloration ou pas des cellules voisines de la colonne B

[Webperegrino]

Bonjour Le Forum,
Dans le fichier exemple ci-joint, je désire, par sélection d'une ou plusieurs cellules adjacentes de la colonne B, placer ses couleurs de fond et de police, en cellules voisines colonne A, et aussi en colonne C si cette dernière n'est pas grise ou si elle n'est pas vide.

Mais je coince avec mes Target et Offset...

Merci de me venir en aide pour corriger la macro Vba attachée au bouton COLOR : je n'y vois plus clair.
Webperegrino

 

[Dranreb]

Bonjour.
Comme ça peut-être :

Private Sub CommandButton1_Click()
   Dim Rng As Range, Cel As Range
   Set Rng = Intersect(Selection, Columns(1)): If Rng Is Nothing Then Exit Sub
   For Each Cel In Rng
      With Cel.Resize(, -(Cel(1, 3).Interior.ColorIndex <> 15) + 2)
         .Font.Color = .Columns(2).Font.Color
         .Interior.Color = .Columns(2).Interior.Color
         End With
      Next Cel
   End Sub

 

[Webperegrino]

Le Forum,
Bonjour Dranreb,
C'est exactement ce que je désirais ; j'ai tout compris !
Merci beaucoup, une épine en moins dans ma programmation...
Webperegrino