Macro recherche ne trouve pas les bonnes données

Sub ChercheFiche(sText As String, Col As String)
Dim rWs As Worksheet, rLign As Long, rRng As Range, C As Range
Dim Adresse As String
Me.MousePointer = fmMousePointerHourGlass
For Each rWs In ActiveWorkbook.Sheets
    If rWs.Name Like "20*" Then
        With rWs
            rLign = .Range(Col & "65536").End(xlUp).Row
            Set rRng = .Range(Col & "2:" & Col & rLign)
            With rRng
                Set C = .Find(sText & "*", , , xlWhole)
                If Not C Is Nothing Then
                    Adresse = C.Address
                    Do
                        With ListBox1
                            .AddItem rWs.Cells(C.Row, 1)
                            .List(.ListCount - 1, 1) = rWs.Cells(C.Row, 2)
                            .List(.ListCount - 1, 2) = rWs.Cells(C.Row, 3)
                            .List(.ListCount - 1, 3) = rWs.Name
                            .List(.ListCount - 1, 4) = C.Row
                        End With
                        Set C = .FindNext(C)
                    Loop While Not C Is Nothing And C.Address <> Adresse
                End If
            End With
        End With
    End If
Next
Set C = Nothing
Set rRng = Nothing
Me.MousePointer = fmMousePointerDefault

Sub Inictl(ByVal nLign As Long, ByVal ws As Worksheet, ByVal Numero As Long)
Dim i As Byte
Dim a As Byte
With ws
    Label2 = CStr(Numero)
    TextBox1 = .Cells(nLign, 2)
    TextBox2 = .Cells(nLign, 3)
    ComboBox1 = .Cells(nLign, 4)
    TextBox3 = .Cells(nLign, 5)
    TextBox4 = .Cells(nLign, 6)
    TextBox5 = .Cells(nLign, 7)
    TextBox6 = .Cells(nLign, 8)
    TextBox7 = .Cells(nLign, 9)
    TextBox[COLOR="Red"][B]8[/B][/COLOR] = .Cells(nLign, 10)
    TextBox9 = .Cells(nLign, 11)
    TextBox10 = [COLOR="Red"][B].[/B][/COLOR]Cells(nLign, 12) [COLOR="Red"][B]'manque le point[/B][/COLOR]
    For i = 1 To 15
        If .Cells(nLign, i + 12) = 1 Then Controls("CheckBox" & i) = True [COLOR="Red"][B]Else: Controls("CheckBox" & i) = False[/B][/COLOR]
    Next
    TextBox11 = .Cells(nLign, 28)
    For a = 16 To 30
        If .Cells(nLign, a + 13) = 1 Then Controls("CheckBox" & a) = True [COLOR="Red"][B]Else: Controls("CheckBox" & i) = False[/B][/COLOR]
    Next
    TextBox13 = .Cells(nLign, 44)
    ComboBox2 = .Cells(nLign, 45)
    TextBox14 = .Cells(nLign, 46)
End With

End Sub