Horizontal ascending sort

Hello
Of course, if I don't look in the right place, I can't see.
Thank you for this addition, and naturally, it works.

Now, I would like to be able to do the manipulation line by line (about 1500), and I don't need to say that I would prefer to automate this a bit.
I tried using a macro by copying the code below (in bold) and adding the rest, but I'm stuck on "Selection.Sort Key1:=Range("d2"),". I keep searching, but if someone could save me a bit of time... I would be grateful.
My range starts at D2 and ends at AC1512

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

I also tried with While, but I couldn't find the right method to identify
Sort Key1:= Range.

Hello,

I don't know if there is an easier way, but I found a code that works:

 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 

See you!
--
Best regards,
We would need a bigger boat!

Yo
Thanks to Pilas 31 for putting me on the right track
I modified his code as follows
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

This allows me to sort Row by Row
The proposed code sorted the entire table and I ended up with the same result.

I am now trying not to keep the blanks, as my words have different lengths.

Here it is, done
The adapted code to sort line by line based on the length of the word
Since I had the number of characters of my word in column A, it was quite simple

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

Thanks again Pilas 31

Just a small clarification: do not delete the empty spaces that would be inside a string. For example, 'New Year's Day' will place the two spaces first.