Option Explicit
Sub Test()
Dim Lig%
Dim Col%
Dim DerL
Dim X%
X = 1
Range("T2:T100").ClearContents
For Lig = 5 To 12
For Col = 11 To 18
If Cells(Lig, Col) = "X" Then Cells(X, 20) = Cells(Lig, 10) & "-" & Cells(13, Col)
X = X + 1
Next Col
Next Lig
Range("T2:T100").Sort Key1:=Range("T2"), Order1:=xlAscending, Header:=xlGuess
Range("T1").Select
End Sub