Bonsoir,
Là une petite macro sera beaucoup plus simple que des formules.
Sub SaisieEnNombre()
Dim v, n&, k%, m%
k = 2: n = 2
With ActiveSheet
Do
m = .Cells(k, 1): v = .Cells(k, 2)
.Cells(n, 6).Resize(m).Value = v
n = n + m: k = k + 1
Loop While .Cells(k, 2) <> ""
End With
End Sub
Cordialement.