Sub remplir()
Dim col As Long, derlig As Long
Dim rng As Range
With Sheets("SALES KIDS 2010")
derlig = .Range("F" & .Rows.Count).End(xlUp).Row
For col = 5 To 1 Step -1
Set rng = .Cells(derlig, col)
Do While rng.Row > 4
Set rng = .Range(rng, rng.End(xlUp))
rng.Value = rng(1).Value
Set rng = rng.Offset(-1)(1)
Loop
Next
End With
End Sub