VBA Les boucles For Foreach While

For

Dim i As Integer, result As Integer

result = 0
For i = 1 To 10 ' Step 2
 result = result + i
Next

For Each

Dim ele As Workbook

For Each ele In Workbooks
    ele.Save
Next

While

Dim total As Integer
Set cell = ActiveCell

Do While Not IsEmpty(cell)
    total = total + cell
Loop

Loop Until/While

Dim resp As String
Do
    resp = InputBox("Name?")
Loop Until resp <> ""

More: http://silkyroad.developpez.com/vba/boucles/