Macro de tri

bonjour

j'essaie de gérer avec Excel un petit stock, comme je reste nulle en VBA je me suis inspirée de macros trouvées dans d'autres fichiers mais malgré tous mes essais il reste un couac!!! lorsque je clique sur LISTE ma fuille liste s'affiche bien avec la sélection mais je ne souhaite pas aller au delà de la colonne G et dans la partie inférieure c'est le même soucis j'ai plusieurs lignes inutiles qui s'affichent.

pouvez vous m'aider ??

fichier en PJ

merci à tous

sasha

Bonjour, sasha

à placer dans le code de la feuille (Clic droit avec la souris sur l'onglet de la feuille, Visualiser le code)

 Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LigneDer As Long
Dim Colonne As Integer

  Colonne = Target.Column
  LigneDer = Cells(Rows.Count, Colonne).End(xlUp).Row
  Range(Cells(2, Colonne), Cells(LigneDer, Colonne)).Sort _
              key1:=Cells(2, Colonne), order1:=xlAscending, dataoption1:=xlSortNormal, Header:=xlNo

End Sub

Cette macro s'exécute à chaque changement des valeurs de la feuille

Amicalement

Pierrot

bonjour

merci beaucoup je vais essayer de suite

sasha