VBA : "For" dans un "If "

Bonjour!

J'essaye d'écrire un code permettant si une valeur est présente dans une colonne de récupérer des données correspondantes sinon si'il n'y a pas la valeur je mets "no data".

J'avais écris un code du style:

Sub test()
Dim i As Integer
Dim DerLign As Integer
DerLign = Sheets(1).Range("A" & Cells.Rows.Count).End(xlUp).Row
If
For i=1 To DerLign
Sheets(2).Range("A1")=Sheets(1).Range("A3 & i)
Next i
Then
Sheets(2).Range("B1")= ...
Sheets(2).Range("C1")=...
Else
Sheets(2).Range("B1")= "NoData"
Sheets(2).Range("C1")= "NoData"
End If
End sub

Evidement ça ne marche pas, il faut la condition juste apres le If...
on ne peut donc introduire un For dans un If?

(J'ai essayé dans l'autre sens c.a.d. "For i=... If...End If... Next i" Mais j'ai toujours NoData sauf pour una valeur correspondant à la ligne Derligne)

Si quelqu'un a une suggestion...
Merci!