Unprotect (excel97)

Bonjour,
Dans le fichier joint, ma macro fonctionne sans problème sous excel 2000. (bouton "initialisation")
Sous excel97, elle plante apparemment sur la ligne :
ActiveSheet.Unprotect ("diabolo")

Comment puis-je faire pour le rendre compatible avec 97 et les versions plus récentes ?
Merci pour votre aide

bonjour Pierre

tu peux tester cette adaptation pour Excel97

Private Sub CommandButton1_Click()
Range("A1").Select
ActiveSheet.Unprotect ("diabolo")
[E4] = [Round(Rand()*10000,2)]
NombreAleaSansDoublon
Range("E4").Select
ActiveSheet.Protect ("diabolo")
End Sub


bon apres mdi
MichelXld