Salut alex,

ça devrait te convenir :

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