Private Sub cbnValidation_Click()
Dim i As Long
i = Sheets("LISTING").[a65000].End(xlUp).Row + 1
With Sheets("LISTING").Cells(i, 1)
.Offset(, 1).Value = cbxDomaine.Text
' Merci à Thebenoit59'
'------------------------------
.Value = Left(.Offset(, 1).Value, 3) & Format(Application.CountIf(Sheets("LISTING").Range("b:b"), .Offset(, 1).Value), "000")
'------------------------------
.Offset(0, 2).Value = tbxTitreDocument.Text
.Offset(0, 3).Value = cbxTypeDocument.Text
.Offset(0, 4).Value = cbxEditeur.Text
.Offset(0, 5).Value = tbxParution.Text
' Changement du texte du Hypertexte en "Visualiser"
.Offset(0, 6).Value = tbxDownLocal.Text
' Changement du texte du Hypertexte en "Télécharger"
.Offset(0, 7).Value = tbxDownCloud.Text
' .Value = Left(.Offset(, 1).Value, 3) & Format(Application.CountIf(Sheets("LISTING").Range("b:b"), .Offset(, 1).Value), "000")
.Offset(0, 8).Value = tbxObservations.Text
End With
End Sub