Remplissage case suivante avec case précédente

Bonjour à tous

J'ai besoin de votre aide pour résoudre la problématique suivante. (Fichier joint)

J'ai besoin de compléter des lignes avec exactement le même contenu que les cases précédentes, mais sur un nombre de cases limitées.

Comme en exemple dans mon fichier :

Si en A1, j'ai BMW, je veux avoir BMW de A2 à A25 par exemple.

Bien sur, je pourrais simplement tirer la case. Sauf que ma problématique porte plutôt sur A1 à A2000, et cela répété 500 fois sur le même fichier.

Par exemple :

BMW de A1 à A2000

Renault de A2001 à A4000

Citroen de A4001 à A6000

Etc...

Précision peut être utile, l'écart entre deux séries est toujours identique.

Savez s'il est possible de remplir directement toutes les cases vides d'un coup, de façon plus automatique qu'étirer la case à chaque fois ? Ou peut être étirer toutes les cases d'un coup ?

Merci d'avance pour votre aide

Bonjour,

à copier/coller dans editeur VBA par ALT/F11 Insertion module

sur base de ton exemple mais remplissage sur les colonnes A et B

Option Explicit

Sub compléter()        ' recopier des cellules vers le bas si vides
Dim x, c
x = [c65536].End(3).Row
For Each c In Range("a1: b" & x).SpecialCells(xlCellTypeBlanks)
   c.Value = Range(c.Address).End(3).Value
Next
End Sub

P.

Ça marche à la perfection, merci beaucoup !