Sub test()
Dim I As Integer, Cellule As Range
For I = 1 To 30
Set Cellule = Range("B" & ((I - 1) * 360 + 1) & ":B" & I * 360).Find("1", lookat:=xlWhole, after:=Range("B" & I * 360))
If Not Cellule Is Nothing Then Cells(I, 3) = Cellule.Offset(0, -1)
Next I
End Sub