Sheets("Liste des pièces").Select
Dim i As Integer
Dim a As Integer
a = 5
Do While Range("A" & a) <> ""
a = a + 1
Loop
If Range("J" & a).Value > Range("K" & a).Value Then Range("AG" & a).Value = "Stock comfortable"
ElseIf Range("J" & a).Value > Range("K" & a).Value Then Range("AG" & a).Value = "Stock critique"
End If