VBA Excel selection d'une cellule au hasard

Sub CelluleAuHasard()
    Dim lngMinL     As Long
    Dim lngMaxL     As Long
    Dim lngMinC     As Long
    Dim lngMaxC     As Long
    Dim lngAleaC    As Long
    Dim lngAleaL    As Long
    
    Sheets("Display Grid").Select
    Range("AO10:AP105").Select
    
    ' numéro de la première colonne
    lngMinC = Selection.Columns(1).Column
    ' numéro de la dernière colonne
    lngMaxC = Selection.Columns.Count + lngMinC - 1
    ' numéro de la première ligne
    lngMinL = Selection.Rows(1).Row
    ' numéro de la dernière ligne
    lngMaxL = Selection.Rows.Count + lngMinL - 1
    
    ' tirage aléatoire pour la ligne
    lngAleaL = (lngMaxL - lngMinL) * Rnd() + lngMinL
    ' tirage aléatoire pour la colonne
    lngAleaC = (lngMaxC - lngMinC) * Rnd() + lngMinC
    Debug.Print "lngMinC = " & lngMinC, "lngMaxC = " & lngMaxC, "lngMinL = " & lngMinL, "lngMaxL = " & lngMaxL, "lngAleaL = " & lngAleaL, "lngAleaC = " & lngAleaC
    
    Cells(lngAleaL, lngAleaC).Activate
End Sub