ActiveCell.Offset(1, 8) = txtnomeleveur.Value
ActiveCell.Offset(1, 9) = CDec(Replace(txtTamis1.Value, ".", ","))
ActiveCell.Offset(1, 10) = CDec(Replace(txtTamis2.Value, ".", ","))
ActiveCell.Offset(1, 12) = CDec(Replace(txtTamis3.Value, ".", ","))
ActiveCell.Offset(1, 15) = CDec(Replace(txtTamis4.Value, ".", ","))
ActiveCell.Offset(1, 16) = CDec(Replace(txtTamis5.Value, ".", ","))
ActiveCell.Offset(1, 17) = CDec(Replace(txtTamis6.Value, ".", ","))
ActiveCell.Offset(1, 70) = txtoperateur.Value