XL 2010 Choisir une cellu;aléatoirement et charger une variable

Sub Macro1()
Dim PL As Range 'déclare la variable PL (PLage)
Dim NC As Integer 'déclare la variable NC (Nombre de Cellules)
Dim A As Integer 'déclare la variable A (Aléatoire)
Dim VAR As Variant 'déclare la variable VAR (VARiable)

Set PL = Range("A1").CurrentRegion 'définit la palg ePL
NC = PL.Cells.Count 'définit le nombre de cellules NC de la palge PL
PL.Name = "toto" 'nomme la plage
Randomize 'lance le générateur de nombre aléatoires
A = Int(NC * Rnd + 1) 'définit le nombre aléatoire A
VAR = PL.Cells(A).Value 'définit la variable VAR
MsgBox VAR 'affiche la varialbe VAR dans un message
End Sub