verifier une cellule et boucle

bonjour
je voudrais verifier que le cellule est vide, aprés ecrire de la cellule vide a la cellule 33 , mai comme j ecrit dans ma cellule 7,33 la boucle est terminer
que faire merci


For a = 3 To 33
If Cells(7, 3).Value = "" Then
Cells(7, a).Value = Sheets(FNomDuMois$(i)).Cells(Z, a).Value
End If
If a = 33 Then
Z = Z + 1
End If
Next a