Dim Deb As Integer, Maxlig As Long, Lig As Long
Randomize
Deb = 2
Maxlig = Worksheets("BdD").Range("A" & Rows.Count).End(xlUp).Row
Lig = Int((Maxlig - Deb + 1) * Rnd + Deb)
Worksheets("Accueil").Range("B3").Value = Worksheets("BdD").Range("A" & Lig).Value