VBA sort pendant que

Do While True
    count = count + 1
    If count = 10 Then
        Exit Do
    End If
Loop
VasteMonde