Bonjour Jaques, et Pierrot et le Forum,
Merci pour tes explications complémentaires, par contre écrire :
For no_ligne = 1 To .Range("A1:A6000").Rows.Count
équivaut à écrire :
For no_ligne = 1 To 6000
Donc pas très utile dans le cas présent...
Sur ce, bonne journée
@+Thierry