XL 2016 Transposition des lignes en une seule colonne avec VBA

Sub EnUneCol()
Dim x, s
   Application.ScreenUpdating = False
   Columns("g:g").Clear: Range("G1") = "Résultat"
   For Each x In Range("a1").Resize(Cells(Rows.Count, "a").End(xlUp).Row).Cells
      If x <> "" Then
         s = Split(Application.Trim(x))
         Cells(Rows.Count, "g").End(xlUp).Offset(1).Resize(UBound(s) + 1) = Application.Transpose(s)
      End If
   Next x
End Sub