Sub teste()
With Sheets("Feuil1")
'i = Sheets("Feuil1").Range("I" & Sheets("Feuil1").Cells.Rows.Count).End(xlUp).Row + 1
Sheets("Feuil1").Range("I3:K10").Select
Selection.ClearContents
For a = 1 To 6
NL = [Feuil1].Range("I" & Cells.Rows.Count).End(xlUp).Row + 1
For b = 9 To 11
.Cells(NL, b).Value = .Cells(a, b - 8).Value
Next b
Next a
End With
End Sub