Listbox et contenue d'une cellule

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Caption = "Welcome"
Me.ListBox1.ListStyle = fmListStyleOption
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox1.AddItem "Rouge"
Me.ListBox1.AddItem "Bleu"
Me.ListBox1.AddItem "Vert"
Me.ListBox1.AddItem "Violet"
Me.ListBox1.AddItem "Jaune"



End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
Dim I As Long
Dim J As Byte
Dim LastCol As Long
  

Application.ScreenUpdating = False
With Worksheets("Result")
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    For I = LastCol To 1 Step -1
        Suppr = True
        For J = 0 To 4
            If Me.ListBox1.Selected(J) Then
             If .Cells(1, I) Like "* Me.ListBox1.List(J)*" Then Suppr = False
        End If
        Next J
       If Suppr Then .Columns(I).Delete
Next I
End With
Unload Me
Application.ScreenUpdating = False
End Sub