Sub Vide()
Dim i As Integer,j As Integer
Dim ref, myadresse As String
For i = 7 To Range("B" & Rows.Count).End(xlUp).Row 'Step 8
If Cells(i, 3) = "" Then
For j = 7 To 1 Step -1
Set ref = Cells(i - 1, 3).Offset(-j, -1).Find("A*")
If Not ref Is Nothing Then GoTo suite
Next j
End If
Next i
suite:
myadresse = ref.Address
For i = 1 To 8
If Range(myadresse).Offset(i - 1, 1) = "" Then
Range(myadresse).Offset(i - 1, 1) = 0
End If
Next i
End Sub