Bloquer une macro aleatoire

Bonjour

J'ai fat une macro tirage aléatoire et rang sans doublon avec bouton actiVx qui fonctionne bien.

Par contre quand je modifie une cellule sur la feuille le tirage change.

J'aimerais que le tirage se bloque jusqu’à la prochaine pression sur le bouton.

Sub tirage()
'
' Macro2 Macro
'

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RAND()"
    Selection.AutoFill Destination:=Range("A1:A35"), Type:=xlFillDefault
    Range("A1:A35").Select
    ActiveWindow.SmallScroll Down:=-39
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=RANK(RC[-1],C[-1],1)"
    Selection.AutoFill Destination:=Range("B1:B35"), Type:=xlFillDefault
    Range("B1:B35").Select
End Sub

D'avance je vous remercie

Bonjour

Essayez comme ceci

Sub tirage()
With Range("A1")
    .FormulaR1C1 = "=RAND()"
    .AutoFill Destination:=Range("A1:A35"), Type:=xlFillDefault
End With
With Range("B1")
    .FormulaR1C1 = "=RANK(RC[-1],C[-1],1)"
    .AutoFill Destination:=Range("B1:B35"), Type:=xlFillDefault
End With
With Application
    .Calculation = xlCalculationAutomatic
    .Calculation = xlCalculationManual
End with
End Sub

Attention que lorsque vous allez fermer votre fichier, me mode de calcul sera placé sur manuel aussi...

Cordialement

Bonsoir Dan

Merci pour la réponse

Cela ne fonctionne pas comme voulu

quand je fait un tirage celui ci doit être bloqué le temps que je fasse des modifs dans le tableau

et a tout moment je dois pouvoir refaire un tirage ce qui n'est pas le cas

Le nouveau code fonctionne exactement comme souhaité

Bonne soirée