Private Sub btnAjout_Click()
Dim O As Worksheet
Dim DEST As Range
Set O = Worksheets("BIR_2019").Activate
If O.Range("A5") = "" Then Set DEST = O.Range("A5") Else Set DEST = O.Range("A4").End(xlDown).Offset(1, 0)
DEST.Value = CboNomClient.Value
DEST.Offset(0, 1).Value = TxtRefClient
DEST.Offset(0, 6).Value = TxtOT
DEST.Offset(0, 7).Value = TxtBDD
DEST.Offset(0, 2).Value = TxtAdresse
DEST.Offset(0, 3).Value = CboVilleCodePostal
DEST.Offset(0, 12).Value = CboConducteursTravaux
DEST.Offset(0, 15).Value = CboEntreprises
DEST.Offset(0, 16).Value = CboNomsPrenomsEntreprises
DEST.Offset(0, 13).Value = CboGeometre
DEST.Offset(0, 14).Value = CboCartographes
DEST.Offset(0, 18).Value = TxtDateInterventionTerrain
DEST.Offset(0, 17).Value = CboMaterielsTopo
DEST.Offset(0, 19).Value = TxtPrecision2D
DEST.Offset(0, 20).Value = TxtPrecision3D
End Sub