Trier des lignes

bonjour a tous j'ai encore besoin de vos lumieres car je deviens fou je n'arrive pas a trier plusieurs lignes en meme temps pour avoir des lignes de mot par ordre alphabetique sur chaque ligne, j'ai tout essayé mais rien n'y fait ca ne fonctionne que pour une seule ligne je vais pas trier ligne par ligne quand meme, je noirci tout le texte a trier (toute mes lignes) puis je fait un tri de gauche a droite croissant et la l'ordi me demande de choisir une ligne je choisi une ligne au hasard le tri se fait juste sur la ligne et pas toute les lignes pourquoi?? j'ai meme vu qu'en triant une autre ligne la premiere ligne que j'avais trié s'été remise en decroissant, je galere aidez moi svp, en ce moment suis obligé de trier dans la colonne et de faire un collage special en transposant pour avoir les mots en ligne c'est trop long, j'ai trouvé une combine pour pas a avoir le tri a faire mais ca ne marche que pour les lignes de deux mots seulement, le mieux serait de trier par ligne c'est sur mais comment faire?

Bonjour,

esaye et dis quoi ,un trie sur deux colonnes,a toi de l'adapter.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then

[A1:B300].Sort key1:=[A1]

End If

End Sub

A +

Salut le forum

Macro à tester

Sub Tri_Croissant()
Dim Tablo()
Dim temp
Dim Ligne As Integer
Dim Colonne As Byte
Dim M As Byte, N As Byte

For Ligne = 1 To [A65000].End(xlUp).Row
  Colonne = Range("IV" & Ligne).End(xlToLeft).Column
  Tablo = Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

'Tri du tableau
    For N = LBound(Tablo, 2) To UBound(Tablo, 2)
      For M = LBound(Tablo, 2) To UBound(Tablo, 2) 
        If Tablo(1, M) > Tablo(1, N) Then
          temp = Tablo(1, N)
          Tablo(1, N) = Tablo(1, M)
          Tablo(1, M) = temp
        End If
      Next M
    Next N

'Ecriture sur la plage de cellule
    For Colonne = 1 To UBound(Tablo, 2)
      Cells(Ligne, Colonne) = Tablo(1, Colonne)
    Next Colonne

Next Ligne

End Sub

Mytå

P.S. J'ai fait un effort de commenter un peu le code