Transformer une colonne en ligne Excel

Bonjour ,

Pour un modèle d'import sur un Logiciel métier j'aurai besoin de transformer chaque cellule appartient à la colonne "F" en jaune en nouveau ligne qui contient cette cellule avancé par une cellule contient l'indicateur "s" , j'ai fait un exemple manuel sur deux lignes et je besoin d'appliquer la même chose sur toute la colonne .

Ci-joint le fichier et merci d'avance

Slt Ben Haj,

à tester

Sub Transformer_Colonne_Ligne()
Dim x As Worksheet
Set x = ThisWorkbook.Sheets(1)
Application.ScreenUpdating = False
x.Range("F1").End(xlDown).Select

   Do Until ActiveCell.Row = 1
      ActiveCell.EntireRow.Insert shift:=xlDown
      ActiveCell.Offset(-1, 0).Select
      x.Cells(ActiveCell.Row + 1, 1).Value = "S"
      x.Cells(ActiveCell.Row + 1, 2).Value = x.Cells(ActiveCell.Row, 6).Value
   Loop

Application.ScreenUpdating = True
End Sub

Bonne nuit

Merci frère

Avec plaisir