XL 2016 Code VBA

[xszma]

Bonjour!

Sur une macro que je retravaille, il y a un bout de code dont je ne comprend pas le sens ni l'utilité, une âme charitable pour me le faire comprendre ou bien encore me l'optimiser ?
Voici la boucle en question :

i = 1
J = 1
    
    Do While Cells(i, J) <> "DISPONIBLE"
        If J < 10 Then
        J = J + 1
        Else
        J = 1
        i = i + 1
        End If
    Loop
    

    Do While Cells(i, J) <> ""
        If Left(Cells(i, 1), 5) <> "Total" Then
            If Cells(i, J).Value < 0 Then
                
                Cells(i, J).Select
                
                With Selection.Interior
                    .PatternColorIndex = xlAutomatic
                    .Color = 255
                    
                End With
                
            Else
                
                Cells(i, J).Select
                
                With Selection.Interior
                    .Pattern = xlNone
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                
                End With
                    
                
            End If
        End If
        i = i + 1
    Loop

Merci d'avance !!

 

[frangy]

Bonjour,

La premère boucle Do...Loop est utilisée pour trouver la colonne qui contient "DISPONIBLE" parmi les 10 premières colonnes
La deuxième boucle Do...Loop est utilisée pour balayer la colonne trouvée précedemment et colorer en rouge les cellules qui contiennent une valeur négative.

Cordialement.

 

[xszma]

Merci !!