While Feuil2.Cells(i, 1) <> TextBox99.Value
i = i + 1
Wend
Cells(i + 1, 3).Select: Selection.EntireRow.Insert
Cells(i, 11) = CDbl(Me.TextBox94) + CDbl(Me.TextBox118)
Cells(i + 1, 14) = Me.TextBox120
Cells(i + 1, 11) = Me.TextBox118
Cells(i, 13) = CDbl(Me.TextBox95)