Sub azer()
If DITB.Value = "" Then
MsgBox ("Il n'y a pas de numero de DI")
End If
Set FTab = Sheets("Tableau")
Set FChois = Sheets("Choisy")
With FTab.Range("A1").End(xlDown).Offset(1, 0)
.Value = DITB.Value
.Offset(0, 1) = adTB.Value
.Offset(0, 2) = CommunesCB.Value
.Offset(0, 3) = depotTB.Value
.Offset(0, 4) = listCB.Value
.Offset(0, 5) = codeTB.Value
End With
If depotTB.Value = "Choisy" Then
With FChois.Range("A1").End(xlDown).Offset(1, 0)
.Value = DITB.Value
.Offset(0, 1) = adTB.Value
.Offset(0, 2) = CommunesCB.Value
.Offset(0, 3) = listCB.Value
.Offset(0, 4) = codeTB.Value
End With
End If
Sheets("Tableau").Select
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub