Orden horizontal ascendente

Hola
Por supuesto, si no miro en el lugar correcto, no puedo ver.
Gracias por este complemento y naturalmente funciona.

Ahora, me gustaría poder hacer la manipulación línea por línea (aproximadamente 1500), no hace falta decir que preferiría automatizar un poco eso.
He intentado con una macro copiando el código de abajo (en negrita) y añadiendo el resto, pero me quedo atascado en "Selection.Sort Key1:=Range("d2")," . Sigo buscando, pero si alguien pudiera ahorrarme un poco de tiempo... soy todo ojos.
Mi rango empieza en D2 y termina en AC1512

ActiveSheet.Select
Range("D2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
For Each Row In ActiveSheet
</negrita>Selection.Sort Key1:=Range("d2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal</negrita>
Next

También he probado con While, pero no he logrado encontrar la forma adecuada de identificar
Sort Key1:= Range.

Hola,

No sé si hay algo más sencillo, pero he encontrado un código que funciona:

 For LIGNE = 2 To 1512 Range("D" & LIGNE & ":AC" & LIGNE).Select Selection.Sort Key1:=Range("D" & LIGNE), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _ DataOption1:=xlSortNormal Next LIGNE 

A+
--
Cordialement,
Il nous faudrait un plus gros bateau !

Gracias a Pilas 31 por meterme en el buen camino
He modificado su código para que quede así
ActiveSheet.Select
x = 2
While Cells(x, 4).Value <> ""
Range("D" & x, "AC" & x).Select
Selection.Sort Key1:=Range("d" & x), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
x = x + 1
Wend

Esto me permite ordenar fila por fila
El código propuesto me ordenaba toda la tabla y volvía al mismo resultado.

Ahora intento no tomar en cuenta los vacíos, mis palabras tienen longitudes diferentes.

Aquí tienes, quedó hecho
El código adaptado para ordenar línea por línea en función de la longitud de la palabra
Como tenía en la columna A el número de caracteres de mi palabra, fue bastante sencillo

ActiveSheet.Select
x = 2
While Cells(x, 4).Value <> ""
y = Cells(x, 1).Value + 3
Range(Cells(x, 4), Cells(x, y)).Select
Selection.Sort Key1:=Range("d" & x), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
x = x + 1
Wend

Gracias de nuevo Pilas 31

Una precisión: no elimines los espacios en blanco que pudieran estar dentro de una cadena. Por ejemplo, 'Jour de l'an' colocará primero los dos espacios.