Function RandomFreeze()

Static AlreadyRandomized As Boolean

AlreadyRandomized = False
Static Low As Double
Static High As Double
Low = 1
High = 100000000

If Worksheets("Sheet1").Range("A1") = "" Then

    If AlreadyRandomized = False Then
    RandomFreeze = Int(Rnd * (High + 1 - Low)) + Low
    AlreadyRandomized = True
    End If

Else
MsgBox "Erreur"
AlreadyRandomized = True
End If



End Function