Sheets("base2").Activate
With Sheets("Base2")
NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
.Rows(NewLig - 1).Copy
.Cells(NewLig, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("A" & NewLig).Value = Val(.Range("A" & NewLig - 1).Value) + 1
.Cells(NewLig, "B") = Me.TextBox1.Value
.Cells(NewLig, "C") = Me.TextBox2.Value
.Cells(NewLig, "D") = Me.ComboBox1.Value
End With