Bonjour le forum

Après plusieurs jours de recherche pour réssoudre mon problème, Je souhaiterai un peu d'aide sur le BUG de mon fichier que je compte évoluer.

Mon fichier présentes 3 feuilles, dés lors que je suis sur les feuil2 ou 3 et que je souhaite revenir sur la feuil1 celà BUG.
voiçi ou ça bug:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
ville:
 If Feuil2.Cells(Lig, 2).Font.ColorIndex = -4105 Then
 Feuil1.TextBox2.Value = Feuil2.Cells(Lig, 2).Value
 Exit Sub
    Else
    Lig = Lig - 1
    GoTo ville
 End If
End Sub
puis le code complet:
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
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub ComboBox1_Change()
    Dim Lig As Integer
    
Feuil1.TextBox1.Value = Feuil1.ComboBox1.Text

'recherche le nom et prénom dans la liste
    With Feuil2.Range("B:B")
        Set c = .Find(ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then Lig = c.Row
    End With

'renvoi les valeurs de tableau1 dans les differents textbox
    Feuil1.TextBox3.Value = Feuil2.Cells(Lig, 3).Value
    Feuil1.TextBox4.Value = Feuil2.Cells(Lig, 4).Value
        'plus si affinité

    'chargement des checkbox correspondant au nom choisi dans la combobox1
If Feuil4.Cells(Lig, 4).Value = 1 Then
   Feuil1.CheckBox1.Value = True
Else
   Feuil1.CheckBox1.Value = False
End If
    
If Feuil4.Cells(Lig, 5).Value = 1 Then
   Feuil1.CheckBox2.Value = True
Else
   Feuil1.CheckBox2.Value = False
End If
    'plus si affinité

ville:
 If Feuil2.Cells(Lig, 2).Font.ColorIndex = -4105 Then
 Feuil1.TextBox2.Value = Feuil2.Cells(Lig, 2).Value
 Exit Sub
    Else
    Lig = Lig - 1
    GoTo ville
 End If
End Sub
Dans l'attente je vous souhaite une bonne journée.

Cordialement