Sub Polobe36()
With Worksheets("Onglet1")
For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
NomFeuille = .Cells(i, 1)
If UCase(.Cells(i, 8)) = "OUI" Then
Worksheets(NomFeuille).Columns("A:A").Insert Shift:=xlToRight
'.Cells(i, 8)="Non"
End If
If UCase(.Cells(i, 7)) = "OUI" Then
.Range(Cells(i, 2), Cells(i, 6)).Copy
Worksheets(NomFeuille).Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
'.Cells(i, 7)="Non"
End If
Next
End With
End Sub