Re Jmt0 !
Regarde une macro un peu plus rapide.Il te faudra l'adapter ensuite à ton cas :
Dim Cellule As Range
Dim NbreGrille As Long
Dim TestCol As Long
Dim TestLig As Long
For Each Cellule In Selection
TestCol = Cellule.Column
TestLig = Cellule.Row
NbreGrille = Range("B14")+15
Cellule.AutoFill Destination:= Range(Cells(TestLig, TestCol), Cells(NbreGrille, TestCol))
Next Cellule
En B14, j'ai la formule =Nb.val qui me donne le nombre de ligne de mon tableau en temps réel.
le +15, c'est parceque mon tableau commence à la 16è ligne.
En fait, cette macro recopie les formules des cellules au préalable sélectionnées, ainsi , tu peux ne recopier que les formules au choix.
Si tu n'avais qu'une seule colonne à recopier, tu pourrais simplifier la macro comme suit :
Dim NbreGrille As Long
Dim TestCol As Long
Dim TestLig As Long
TestCol = ActiveCell.Column
TestLig = ActiveCell.Row
ActiveCell.Select
NbreGrille = Range("B14")+15
Cellule.AutoFill Destination:= Range(Cells(TestLig, TestCol), Cells(NbreGrille, TestCol))
@ +
Moa