Couleurs dans cellules

Private Sub Worksheet_Change(ByVal Target As Range)
Dim jaune&, bleu&, r As Range, x$
jaune = [N1].Interior.Color 'cellule à adapter
bleu = [O1].Interior.Color
Set r = Intersect(Target, Me.UsedRange)
If r Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In r
  x = Mid(r, 3)
  If LCase(Left(r, 2)) = "jj" Then
    r.Interior.Color = jaune
    If IsNumeric(x) Then r = CDbl(x) Else r = x
  ElseIf LCase(Left(r, 2)) = "bb" Then
    r.Interior.Color = bleu
    If IsNumeric(x) Then r = CDbl(x) Else r = x
  Else
    r.Interior.ColorIndex = xlNone 'RAZ
    x = r.Formula: r = Chr(1): r = x 'recalcul des fonctions volatiles
  End If
Next
Application.EnableEvents = True
End Sub

Sub Jaune()
'touches Ctrl+J
If Intersect(Selection, [N1:O1]) Is Nothing Then
  Selection.Interior.Color = [N1].Interior.Color
  [A1] = [A1].Formula 'recalcul de la fonction volatile
End If
End Sub

Sub Bleu()
'touches Ctrl+B
If Intersect(Selection, [N1:O1]) Is Nothing Then
  Selection.Interior.Color = [O1].Interior.Color
  [A1] = [A1].Formula 'recalcul de la fonction volatile
End If
End Sub

Sub Efface()
'touches Ctrl+E
If Intersect(Selection, [N1:O1]) Is Nothing Then
  Selection.Interior.ColorIndex = xlNone
  [A1] = [A1].Formula 'recalcul de la fonction volatile
End If
End Sub

Sub Coloriage(Choix As Byte)
Dim Couleurs
Couleurs = Array(6, 33, xlNone)
If Intersect(Selection, [N1:O1]) Is Nothing Then
  Selection.Interior.ColorIndex = Couleurs(Choix)
  [A1] = [A1].Formula 'recalcul de la fonction volatile
End If
End Sub

Sub Jaune()
Coloriage 0
End Sub

Sub Bleu()
Coloriage 1
End Sub

Sub Efface()
Coloriage 2
End Sub