Sub Boucle()
    Dim index As Integer
    index = 0
    
    Do While index < 3
        MsgBox index
        index = index + 1
    Loop
    
    ' index = 0
    MsgBox "On passe à la boucole For"
    
    For index = 1 To 3
        MsgBox index
    Next
    
End Sub
