VOILA
............................................
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
FOR I=1 TO Irow
if irow<9 then
irow=9
end if
ws.Cells(iRow, 1).Value = iRow - 8
ws.Cells(iRow, 2).Value = Me.TextBoxAF53.Value
ws.Cells(iRow, 3).Value = Me.TextBoxAF52.Value
ws.Cells(iRow, 4).Value = Me.TextBoxAF51.Value
ws.Cells(iRow, 5).Value = Me.TextBoxAF50.Value
ws.Cells(iRow, 6).Value = Me.TextBoxAF49.Value
ws.Cells(iRow, 7).Value = Me.TextBoxAF48.Value
NEXT I
.............................................
Puis continuer le macro