Bonjour tout le monde,

je dois reprendre un code vba blindé de Goto !

J'ai besoin de vos lumières sur ce code :

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
 
Line1:
    If Cells(a, 1) <> "" Then
        If Cells(a, 18) = Base18 Then
            If Cells(a, 23) = "" Then
........ code
                GoTo Line1
            Else
........ code
                GoTo Line1 '---------------------------------------------------------------------------------------
            End If
        Else
            a = a + 1
            GoTo Line1 '-------------------------------------------------------------------------------------------
        End If
    End If
Merci pour votre aide