XL 2010 [Résolu par thebenoit] Problème de recherche avec les Tag's

Private Sub CmdRecherche_Click()
Dim ctrl As Control, i%, j%
Set ws = Sheets("enregistrement clients")
With ws
    'Numéro de ligne.
    i = WorksheetFunction.Match(Me.ComboBox1.Text, .Columns(4), 0)
    'On boucle les contrôles.
    For Each ctrl In Controls
        If ctrl.Tag <> "" Then
            j = Val(ctrl.Tag)
            ctrl.Value = .Cells(i, j).Value
        End If
    Next ctrl
End With
    'Adaptation des formats.
With Me
    .TextBox7.Value = Format(.TextBox7.Value, "00 00 00 00 00")
    .TextBox8.Value = Format(.TextBox8.Value, "00 00 00 00 00")
    .TextBox12.Value = Format(.TextBox12.Value, "0")
    .TextBox13.Value = Format(.TextBox13.Value, "0")
    .TextBox14.Value = Format(.TextBox14.Value, "### €")
    .TextBox15.Value = Format(.TextBox15.Value, "### €")
End With
End Sub

Dim i%, Ligne%, Critère$, c, d As Object

'Recherche de la ligne sélectionnée.
With Me.ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            For j = 0 To 4
                Critère = Critère & .List(i, j)
            Next j
            Exit For
        End If
    Next i
End With

If Critère = "" Then MsgBox "Aucune ligne sélectionnée": Exit Sub

Set d = CreateObject("scripting.dictionary")

With Sheets("reception factures")
    For i = 2 To .[a65000].End(xlUp).Row
        For j = 3 To 7
            d(i) = d(i) & .Cells(i, j).Value
        Next j
    Next i
End With

For Each c In d.Keys
    If d(c) = Critère Then Ligne = c: Exit For
Next c

With ListBox1
Set plage = ActiveSheet.Range("a2:m" & Range("m65536").End(xlUp).Row)
For i = 0 To .ListCount - 1
If .Selected(i) Then Set rw = plage.Find(.List(i, 8), , xlValues)
TxtID = rw.Offset(i - 2, -11)
Next i
End With