Function Syracuse(Nombre)
Application.Volatile
Dim Résultat As Integer, Compteur As Integer
If Nombre = 1 Then
Compteur = 3
End If
Résultat = Nombre
Do While Résultat <> 1
If Résultat / 2 = Int(Résultat / 2) Then
Résultat = Résultat / 2
Else
Résultat = Résultat * 3 + 1
End If
Compteur = Compteur + 1
Loop
Syracuse = Compteur
End Function