'paramètres de la boucle
Dim i As Integer
Dim NbreUtilisateursSP As Integer
Dim Cel As Range
Set Cel = Range("B11")
Utilisateurs = Cel.End(xlDown).Row
'lancement de la boucle
For i = 0 To Utilisateurs
'option d'arrêt de la boucle une fois qu'il n'y a plus d'utilisateurs
If Cel.Offset(i) <> " " Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "fonctionne"
Else
Call fin_boucle
End If
Next i
End Sub