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
21
22
23
24
25
26
Dim c As Range
Dim FL1 As Worksheet, Plage As Range, x
Sheets(ComboBox4.Text).Range("A4:j65535")
    Set FL1 = Worksheets(ComboBox4.Text)
    Set Plage = FL1.Range("A4:j65535")
 'Colonne de recherche
    If ListBox1.Text = "" Then
         TextBox2.Value = ""
         TextBox5.Value = ""
         Exit sub
    End sub
    x = ListBox1.Text 
    With Plage
        Set c = .Find(x, lookin:=xlValues)
        If Not c Is Nothing Then
            c.Select
           else
            'donnée non trouvée
            exit sub
    End With
 
            c.Select
        End If
    Next c
    'et là tu peux modifier toutes tes lignes comme ci-dessous
    TextBox2.Value = c.Offset(0, 1)
Plus de goto, seulement une recherche en boucle
Il y a plus rapide avec la recherche dichotomiqque mais commence par comprendre ce code, il plus évident
Bonne nuit