simplification de code

Bonsoir le Forum,
Après une longue absence je reviens vers vous. Inutile de vous le dire j'ai besoin d'aide 🙂

Serait il possible de simplifier ces deux procédures?
En effet j'ai plus de 40 textbox suceptibles d'avoir une modifications et un double click. Que faire afin d'éviter de me taper les 40 procédures a ecrire?

Mille mercis

JC

Private Sub TextBox2_AfterUpdate()
Dim donnée
If TextBox2 = "" Then Exit Sub
donnée = TextBox2 '.Value
With Sheets("BDDCostume")
.Activate
Set c = Range(Range("A3"), Range("A3").End(xlToRight)).Find(donnée)
End With
If Not c Is Nothing Then
If c.Offset(1, 0) = "" Then
c.Offset(1, 0) = Me.TB_Nom & " " & Me.TB_Prénom: Sheets("Costume").Select: Exit Sub
Else: MsgBox "Cet article semble avoir déjà été attribué", vbOKOnly, "ATTENTION": Sheets("Costume").Select: TextBox2 = "": Exit Sub
End If
End If
MsgBox "Il n'existe pas d'article sous cette référence", vbOKOnly, "Erreur": Sheets("Costume").Select: TextBox2 = ""
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
donnée = TextBox2
With Sheets("BDDCostume")
.Activate
Set c = Range(Range("A3"), Range("A3").End(xlToRight)).Find(donnée)
End With
c.Offset(1, 0) = ""
TextBox2 = ""
Sheets("Costume").Select
End Sub