Problème d'Incompatibilité de type

**NEC14** · 05/01/2009, 09h30

Bonjour à tous et bonne année 2009

J'ai tapé ce code qui me permet, normalement, lorsque je sélectionne une donnée en Cb3, d'afficher un prix dans T4 et T5 qui sont des TextBox.
Cependant, un message apparait lors de la sélection : "Incompatibilité de type"
Private Sub Cb3_Change() est sélectionné ainsi que B1 et B2.

Pouvez-vous m'aider s'il vous plait ?
Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Cb3_Change()
Dim Cell As Range
Dim B1(0 To 50, 0 To 1) As String
Dim B2(0 To 50, 0 To 1) As String
Dim L As Byte
Dim I As Byte
    If Me.Cb3.Value <> "" Then
        L = Len(Cb3)
            For Each Cell In Sheets("Données").Range("B2:D57")
            If UCase(Left(Cell.Text, L)) = UCase(Cb3.Text) Then
            B1(I, 0) = Cell.Offset(0, 2).Text
            B2(I, 0) = Cell.Offset(0, 1).Text
        I = I + 1
        End If
    Next
    Me.T4.Text = B1()
    Me.T5.Text = B2()
End If
End Sub

**NEC14** · 05/01/2009, 11h32

J'ai essayé en changeant Change par autre chose, mais toujours avec le même résultat.
Je ne comprens pas où ça coince. Je continue mes investigations.