Pour ceux qui auraient un problème similaire, voici le code auquel je suis arrivé :
Option Explicit
Sub trialpha()
Dim i, j, ld, colonne, ligne_de_debut, ligne_de_fin As Integer
'ld ligne débutant le tri
colonne = 4 'Correspond à la colonne D
ligne_de_debut = 7
ligne_de_fin = 127
For...