Sub For_X_to_Next_Colonne()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant
 Dim i As Integer
 Dim FL2 As Worksheet
    
  
    Set FL1 = Worksheets("Feuil1")
    Set FL2 = Worksheets("Feuil2")
 
    
    DerLig = Split(FL1.UsedRange.Address, "$")(4)
 
    
    NoCol = 7
 
    For NoLig = 2 To DerLig
        Var = FL1.Cells(NoLig, NoCol).Value
 
Do Until Var = 1

    FL1.Activate
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("feuil2").Select
    Rows("2:1").Select
    Selection.Insert Shift:=xlDown
Var = Var - 1
Loop
 
     
    Next
    Set FL1 = Nothing
    
End Sub