modification de formules par VBA

[nufida]

Salut,
J'aimerais créer une macro qui fasse glisser une formule, et en modifie une partie dans la cellule de destination. Je m'explique, dans une cellule R8, j'ai :
=RECHERCHEH($B8;INDIRECT("IMPORTS12"&R$4&"!$B$7:FG2000");789;FAUX)

l'année voulue apparait en R4

Comment faire glisser automatiquement cette formule dans la cellule adjacente à droite (que ce soit R8 ou pas ma cellule initial)
J'ai essayé avec "l'enregstrement de macro" et voila ce que ça me donne

Selection.AutoFill Destination:=Range("R8:S8"), Type:=xlFillDefault
Il me faudrait un code sans R8 et S8


Pour m'expliquer, cette macro me permettrait de rajouter automatiquement une colonne chaque fin d'année avec les bonnes formules

Merci d'avance

 

[Pierrot93]

Re : modification de formules par VBA

Bonjour Nufida

Pour faire glisser le contenu de la cellule selectionnée vers la première cellule de droite utilise le code ci dessous

Selection.AutoFill Destination:=Range(Selection, Selection.Offset(0, 1)), Type:=xlFillDefault

Bonne soirée
@+

 

[nufida]

Re : modification de formules par VBA

Merci beaucoup
Bonne soirée