VBA ajouter des années

Bonjour,

Je joins un fichier exemple. j'ai une souce de données avec laquelle je fais un TDC.

Ensuite, je colle ce TDC en valeur dans une autre page et dans ce collage, j'aimerais ajouter des lignes. je ne peux pas donner plus d'explications, c'est difficile à expliquer, c'est pourquoi le fichier est ici:

https://www.excel-pratique.com/~files/doc/Excelpratique_macro.xls

D'avance merci,

Souri84

Bonjour Souris

Voilà la méthode demandée :

https://www.excel-pratique.com/~files/doc/XplxiExcelpratique_macro.xls

Salutations

Dan de Pic

Merci !!!!

Je vais essayer ça demain, là je suis chez moi, j'essaierai au taf !!!

Encore merci,

cette méthode est pas mal, sauf que mon tableau fait plus de 200 lignes... et qu'il risque de changer chaque semaine...

voici le code que j'ai créé, j'ai eu du mal mais il fonctionne....

Sub atteindre3()

'***********
'atteindre3
'***********

'Déclaration des variable
Dim cell As Object

'selection des données
Range("A5").Select
Selection.CurrentRegion.Select

'pour chaque cellule vides de la sélection, la formule = cellule juste au-dessus
For Each cell In Selection
If cell = "" Then
cell.FormulaR1C1 = "=R[-1]C"

'Selection et copie en valeur des données
Range("A5").Select
Selection.CurrentRegion.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End If
Next
End Sub

Merci à Dan de Pic qui m' a mis sur la voie

Bonjour Souri84, Dan et le forum,

Voici une autre solution.

https://www.excel-pratique.com/~files/doc/Excelpratique_macro_v1.xls