OptionButton et recherche simultanée

Private Sub obG2() 'prodédure des boutons d'option du Groupee G2

For Each cel In pl 'boucle sur toutes les cellules de la plage pl
    dico(cel.Value) = "" 'alimente le dictionnaire
    dico(cel.Offset(0, 2).Value) = ""
    dico(cel.Offset(0, 4).Value) = ""
Next cel 'prochaine cellule de la boucle

Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Me.ListBox1.Clear 'vide la ListBox1
For x = 1 To 9 'boucle sur les 9 textboxes
    Me.Controls("TextBox" & x).Value = "" 'vide la textbox
Next x 'prochaine textbox de la boucle
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
  
  If cel = ComboBox1 Or cel.Offset(0, 2) = ComboBox1 Or cel.Offset(0, 4) = ComboBox1 Then'modif