Function EstPuissanceDe(nb As Long, p As Long) As Boolean EstPuissanceDe = (nb - p ^ Int(Log(nb) / Log(p) + 0.5)) = 0 End Function Sub Test() Debug.Print EstPuissanceDe(128, 2) End Sub