Comment incrémenter des cellules sans modifier celles qui ont des valeurs

Bonjour, j'ai besoin de votre aide s'il vous plaît.

Voilà le souci, j'ai des données dans certaines cellules et j'aimerais effectuer une recopie sans que cela ne modifie les données d'autres cellules. Pour être plus précis, les données se présentent comme suit :

Les cellules A1, A5 et A10 contiennent des valeurs différentes. Je voudrais sélectionner lesdites cellules et faire une recopie vers le bas de sorte que A2, A3, A4 aient les mêmes valeurs que A1, les cellules A6 à A9 aient les mêmes valeurs que A5 ainsi de suite, sans le faire ligne par ligne parce que en réalité le travail que je dois faire contient plus de 1000 lignes donc ce serait fastidieux.

J'espère avoir bien décri mon problème et merci d'avance pour les solutions.

Bonjour,

à tester,

Sub RemplirVide()
For Each c In Selection 'sélectionner la plage à transformer
If c.Value = 0 Then c.Value = c.Offset(-1, 0).Value
Next
End Sub

ou bien

Sub RemplirVide2()
For Each c In Selection 'sélectionner la plage à transformer
If c.Value ="" Then c.Value = c.Offset(-1, 0).Value
Next
End Sub

Hello,

Je le faisais en ajoutant une colonne avec la formule en B2 :

=si(A2="";B1;A2)

du coup j'avais juste à écrire une valeur en B1 (=A1 si la A1 a une valeur, la valeur que je veux sinon) et ensuite tirer la formule de B2 vers le bas

Bonsoir,

Merci beaucoup pour votre réactivité je vais tester les différentes solutions demain sur mon poste de travail.

Finalement j'ai fait le teste depuis mon smartphone et ça marche très bien. Vraiment merci pour votre aide.

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. clôture le fil, par un clic sur le bouton (indiquer par la flèche verte)