VBA_Etirer une formule de Gauche vers la droite

Bonjour à tous,

je suis un peu bloqué concernant une formule que dois étirer vers la droite en VBA.

Ci dessous ma demande plus précise:

En colonne B ligne 8 j'ai une formule qui calcul des éléments du tableau du dessus selon les semaines incrémentées.

Colonne B= Semaine 1; Colonne C=Semaine 2 etc....

La colonne F (soit la semaine 5) est la fin de mon tableau mais cette dernière varie en fonction des MAJ.

Je souhaiterai étirer la formule de B8 vers la dernière colonne du tableau, la formule s'étirerai donc de B8 à F8

et lorsque que j'implémenterai une nouvelle Semaine (6) soit la Colonne G, je souhaiterai que la formule s'étire jusque la semaine ajoutée.

je vous joins un exemple en image

Par avance je remercie tous ceux qui se pencheront sur ma demande.

bonne journée à tous

Bonsoir

je souhaiterai que la formule s'étire jusque la semaine ajoutée.

Comment via VBA, par un bouton ?

Cordialement

bonjour Dan,

j'ai déjà une procédure qui ajoute la nouvelle semaine et les éléments à calculer,

en fait je souhaiterai étirer la formule jusqu’à la dernière colonne non vide.

La dernière colonne non vide est déterminée par le n° de semaine.

je sais le faire en verticale via le code ci dessous

Sheets(1).Range("D2").AutoFill Destination:=Range("D2:D" & Range("E2").End(xlDown).Row), Type:=xlFillValues

mais en horizontale je bug, lol

Merci

Re

essayez avec ces trois lignes

Dim col As Byte, dcol As Byte
col = Cells(8, Columns.Count).End(xlToLeft).Column - 1
dcol = Cells(3, Columns.Count).End(xlToLeft).Column
Cells(8, col).Copy Cells(8, dcol)

Ou ceci

Dim col As Byte, dcol As Byte
col = Cells(8, Columns.Count).End(xlToLeft).Column - 1
dcol = Cells(3, Columns.Count).End(xlToLeft).Column
Cells(8, col).AutoFill Destination:=Range(Cells(8, col), Cells(8, dcol)), Type:=xlFillDefault

Cordialement

Merci Dan,

La deuxième proposition répond parfaitement à ma problématique.

Je te remercie vivement

Très bonne soirée