Bonjour à tou(te)s

afin de régler un problème de rapidité d'éxecution, j'ai changé le code suivant à l'initialisation d'un USF :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
a = .Range("A" & .Rows.Count).End(xlUp).Row
Set PLAGE = .Range("b2 :b" & a)
With REFCHOISIE 'ma listbox
    For Each cel In PLAGE
      .AddItem cel(1, 0)
      .Column(1, .ListCount - 1) = cel(1, 1)
      .Column(2, .ListCount - 1) = VBA.Format(cel(1, 2), "#,##0.00 €")
      .Column(3, .ListCount - 1) = VBA.Format(cel(1, 3), "#0.00 %")
      .Column(4, .ListCount - 1) = cel(1, 5)
      .Column(5, .ListCount - 1) = cel(1, 6)
      .Column(6, .ListCount - 1) = VBA.Format(cel(1, 8), "# ##0.00 €")
      .Column(7, .ListCount - 1) = VBA.Format(cel(1, 9), "##0")
    Next cel
End With
pour celui-ci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
a = .Range("A" & .Rows.Count).End(xlUp).Row
End With
With REFCHOISIE
    .ColumnCount = 10
    .RowSource = "A2:J" & a
    .ColumnWidths = ";250;42;42;0;185;40;0;48;"   'Masque les colonnes inutiles
End With
mais avant je pouvais utiliser "REFCHOISIE.CLEAR" (pour mes besoins) or avec le code ci-dessus, j'obtiens "erreur non repertorié" sur cette ligne

Je ne vois pas d'ou vient le problème ?

alors si quelqu'un voit mon erreur et peut m'aider, merci d'avance