Bonjour,
Actuellement, dans votre code vous avez :
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range("L1:L25")
supprimez les chiffres pour mettre :
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range("L:L")
With ActiveWorkbook.Worksheets("Feuil3").Sort
.SetRange Range("A:L")
Le tri se fera sur le colonnes sans prise en compte de la fin de fichier il trie de la ligne 1 à X
Là, où je ne comprends pas ; qu’est ce que vous voulez effacer le contenu des cellules inférieures à 3 ou la ligne dont la valeur de la colonne l est inférieure à 3
Phil972