Private Sub BtnAjout_Click()
Dim ligne As Long
If MsgBox(" Confirmez-vous l'ajout de la fiche?", vbYesNo, " Confirmation") = vbYes Then
With Sheets("collecte")
ligne = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Cells(ligne, 1) = TextBV.Value '-> CLIENT
.Cells(ligne, 2) = Year(CDate(TextDate)) '-> ANNEE OK
.Cells(ligne, 3) = ComboService.Value '-> IMPOT
.Cells(ligne, 4) = TextAgent.Value '-> MONTANT
.Cells(ligne, 5) = CheckBV.Value '-> REFERENCE
.Cells(ligne, 6) = TextVolume.Value '-> Date EXIGIBILITE
.Cells(ligne, 7) = ComboLieu.Value '-> Date PAIEMENT
.Cells(ligne, 8) = TextTemps.Value '-> DEPOSE
.Cells(ligne, 9) = TextObserv.Value '-> Observation OK
.Cells(ligne, 10) = CheckClass.Value '-> Classé OK
Unload Me
FormCollecte.Show
End With
Else
End If
End Sub