Copie de serie différente

Bonjour à tous,

Je souhaiterais copier en meme temps des series dans une colonne qui ne se suivent pas exemple,

Valeur cellule A1=2 cellule A3,A4,A5= vide à remplir avec valeur 2

Valeur cellule A6=4 cellule A7,A8A9= vide à remplir avec valeur 4

Valeur cellule A10=3 cellule A11,A12,A13= vide à remplir avec valeur3

Exct......

Les valeurs ne sont pas issus des formules se sont des numéro, et on ne peux pas trier en ordre

Le tout en meme temp car je selectionne la colonne entièrre (200000 ligne)

c'est pour cela que je ne peux selectionner chaque serie

En vous remerciant

Bonjour

Code Module

Sub Remplir()
Dim Cel As Range
For Each Cel In Range("A2:A" & [A65000].End(xlUp).Row)
If Cel = "" Then
Cel.Value = Cel.Offset(-1, 0)
End If
Next Cel
Range("a2").End(xlDown).Select
i = ActiveCell.Value
Range(ActiveCell, ActiveCell.Offset(3, 0)).Select
Selection = i
End Sub

Cordialement

Bonjour,

Un très grand merci, cela fonctinne super bien après qqe réglage sur ma base et j'ai pu rentrer mes 200 000 lignes sans problème

Encorre bravo et félicitation , cela m'épargne un temps considérable

Cordialement