Sub remplir_colVides()
Dim R As Range
Set R = ActiveSheet.[E1]
Do Until IsEmpty(R.Value)
R.Resize(, 10).FormulaR1C1 = "=""" & R.Value & " ""&COLUMNS(RC" & R.Column & ":RC)"
Set R = R.Offset(, 10): Loop
End Sub
Sub remplir_LigVides()
Dim R As Range
Set R = ActiveSheet.[E1]
Do Until IsEmpty(R.Value)
R.Resize(10).FormulaR1C1 = "=""" & R.Value & " ""&ROWS(R" & R.Row & "C:RC)"
Set R = R.Offset(10): Loop
End Sub