Choix couleur fond par userform

Private Sub OptionButton1_Click()
    ActiveCell = 1
    ActiveCell.Interior.ColorIndex = 3
    Me.Hide
End Sub

Private Sub OptionButton2_Click()
    ActiveCell = 1
    ActiveCell.Interior.ColorIndex = 4
    Me.Hide
End Sub

Private Sub OptionButton3_Click()
    ActiveCell = 1
    ActiveCell.Interior.ColorIndex = 6
    Me.Hide
End Sub

Private Sub OptionButton4_Click()
    ActiveCell = 1
    ActiveCell.Interior.ColorIndex = 5
    Me.Hide
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    UserForm1.Show
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    UserForm1.Show
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If [D5] <> 1 Then
  [D5].Interior.ColorIndex = _
    Switch([D5] = "Rouge", 3, [D5] = "Vert", 4, [D5] = "Jaune", 6, [D5] = "Bleu", 8, True, xlNone)
  [D5] = 1
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$5" Then
  Application.Dialogs(xlDialogPatterns).Show
  [D5] = 1
End If
End Sub