Etendre une formule en ajoutant des lignes

Bonjour,

Je sollicite votre aide sur un blocage que je rencontre en VBA lequel je suis encore novice, j'essaie d'être le plus clair possible.

j'ai un code qui me permet d'étendre mes formules en ligne à partir de la cellule I3 à N3,j'arrive bien à l'étendre lorsque j'exécute le code seulement le problème c'est que cela rend lourd mon ficher excel donc j'aimerai qu'il m'ajoute aussi des lignes au fur et a mesure que j'effectue des saisies dans les colonnes F jusqu'à H.par exemple si j'écris en F4 ou G4 ou H4

automatiquement ma formule s'étend avec le tableau.

voici mon code:

Sub DATAEelargir()

Dim DernLigne As Long

With ActiveSheet.UsedRange

[I3:N3].AutoFill Range("I3:N" & .Rows(.Rows.Count).Row)

End With

End Sub

Merci d'avances

Bonjour

Et si au lieu d'une usine à gaz tu utilisais un tableau structuré ?

Les formules s'y recopient automatiquement de même que les format, MFC et validation incluses le cas échéant

Tu as 2016 pas Excel 5...