Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim VC As String 'déclare la variable VC (Valeur Cherchée)
Dim R As Range 'déclare la variable R (Recherche)
Set O = Worksheets("BdD") 'définit l'onglet O
Sheets("INTERIM").Range("C8") = TextBox1.Value
VC = TextBox1.Value & "/KDT.RH/" & Year(Date) 'définit la valeur cherchée VC
Set R = O.Columns(12).Find(VC, , xlValues, xlWhole) 'définit la recherche R
If Not R Is Nothing Then 'condition 1 : si au moins une occurrence est trouvée
'condition 2 : si "Oui" au message
If MsgBox("Attention, c'est un doublon ! Voules-vous continer ?", vbYesNo, "ATTENTION") = vbYes Then
'renvoie la valeur cherchée dan sla dernière ligne éditée de la colonne 12 (=L) de l'onglet O
O.Range("L" & Application.Rows.Count).End(xlUp).Offset(1, 0).Value = VC
End If 'fin de la condition 2
Else 'sinon (condition 1 : aucune occurrence trouvée)
'renvoie la valeur cherchée dan sla dernière ligne éditée de la colonne 12 (=L) de l'onglet O
O.Range("L" & Application.Rows.Count).End(xlUp).Offset(1, 0).Value = VC
End If 'fin de la condition 1
Unload UserForm2
End Sub