Insertion de lignes et formules

bonjour

Toujours un soucis avec des insertions de lignes dans un simple tableau et la conservation d'une formule.

Ci joint le document.

Cdt

No

Pourtant, l'utilisation du tableau permet la recopie de la formule à l'occasion d'une insertion de ligne(s).

Bonjour

Merci pour la réponse ça fonctionne bien par contre il est impossible apparemement de procéder à un tri croissant ou décroissant,

correct ?

Cdt

Berlingo

Saisie triée :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    nom = Target
    [A1:A1000].Sort key1:=[A1]

  End If
End Sub

Pour un tri décroissant :

[A1:A1000].Sort key1:=[A1], order1:=xlDescending