Vba excel

Bonjour,
Bonjour,
dite moi ce qui va à ce code là svp
on me demande de remplir des nombre aleatoir ( 1 à 100) dans une plage de cellule delimité par un nb de ligne et un nb de colonne deamndé au debut du programme. merci
voila le code:

Sub proc1()

Dim p As Range
Dim nbligne As Integer
Dim nbcolonne As Integer
Dim s As Integer

nbligne = InputBox("Nombre ligne?")
nbcolonne = InputBox("Nombre colonne?")

Set f = ActiveWindow.ActiveSheet
Set p = ActiveWindow.ActiveCell.CurrentRegion
debut = p.Rows(1).Row
fin = p.Rows(p.Rows.Count).Row
col = p.Columns(1).Column

s = 1

For i = 1 To nbcolonne
f.Range(f.Cells(debut, col), Cells(debut, fin)).Value = Int((100 * Rnd) + 1)

Next i

End Sub