création fonction

je souhaite créer une fonction

fonction d'appel
=loig(B13;"'Export fichier 1'!DQ1";"'Export fichier 1'!DQ1";"'Export fichier 1'!DS1";"'Export fichier 1'!DB1")

macro
Function loig(datecherche, col1, col2, col3, col4, col5)

Dim i As Long
Dim j As Long
loig = 0
j = 10000
For i = 1 To j

If datecherche = Range("'Export fichier 1'!B1").Offset(i) And (Range(col1).Offset(i) = 1 Or Range(col2).Offset(i) = 1 Or Range(col2).Offset(i) = 1 Or Range(col3).Offset(i) = 1 Or Range(col4).Offset(i) = 1Or Range(col5).Offset(i) = 1) Then loig = loig + 1
x = Range().Offset(i)
Next i
MsgBox x

End Function



le probleme sur les valeurs col sont nulles la fonction se bloque

merci d'avance