Private Sub CommandButton1_Click()
Dim Boucle As Integer
For Boucle = 2 To Feuil1.Range('E65535').End(xlUp).Row
' Recherche la dernière cellule non vide en E en partant du bas
' donc la boucle commencera en 2 et finira en XXX
Var = Mid(Cells(2, 10).Value, 4, 2)
MsgBox (Var)
Range('o' & Boucle).Value = Var
' Range o2, o3, etc...
Next Boucle
End Sub