With Range(RefEdit1.Value)
MsgBox .Rows.Count 'te donne le nombre de ligne
.Rows.RowHeight = 25 'impose une hauteur de ligne
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin 'place une bordure
End With
End With