XL 2007 formule en vba sujet

Forum Bonjour
je souhaiterai convertir la formule ( dans la cellule A3) suivante en VBA

Code :

---

=SI((NB.VIDE(B3:D3)+NB.VIDE(G3:H3)+NB.VIDE(K3:L3))=0;LIGNE(A3)-2;"" )

---

GRAZIE
NB : sorry cette formule doit etre appliquée sur un tableau de B3: b2014