Choisir aléatoirement une case dans un tableau excel

Option Explicit
Sub x()
Dim tbl As Range
Dim cel As Range
Dim n°L As Long
Dim n°C As Integer
Dim msg As String
  
  'Définition du tableau
  Set tbl = ActiveSheet.Range("A2:G40")
  
  'Choix aléatoire d'une cellule du tableau
  Randomize
  n°L = Rnd() * (tbl.Rows.Count - 1) + 1
  n°C = Rnd() * (tbl.Columns.Count - 1) + 1
  Set cel = tbl.Cells(n°L, n°C)

  'Informtaions sur la cellule choisie
  MsgBox "Cellule choisie : " & cel.Address(False, False) & vbCr & _
         "Valeur : " & cel.Value & vbCr & _
         "Formule : " & cel.FormulaLocal
  
End Sub