MACRO INSERTION DE LIGNES

Bonsoir, si quelqu'un peut m'aider,

Voilà, j'ai une macro qui insère plusieurs lignes en même temps :

Sub InsertionDeLignes()
Dim I, NbLigne As Variant
NbLigne = InputBox('Combien voulez-vous insérer de ligne ?', 'Nombre de lignes à inserer')
For I = 1 To NbLigne
Selection.EntireRow.Insert
Next I
End Sub

celle-ci marche bien mais je voudrais la modifier en remplaçant l'InputBox par une fonction XL en l'occurence SommeProd. J'ai essayer ceci mais ça ne marche pas :

Sub InsertionDeLignes()
Dim I, NbLigne As Long
NbLigne = Application.WorksheetFunction.SumProduct((D1147 = ' ') * (E1:E147 > 4))
For I = 1 To NbLigne
Selection.EntireRow.Insert
Next I
End Sub

HELP ME PLEASE