Sommer un textbox

Bonjour à tous,

J'ai fait un tour des sujets et j'ai rien trouver de simillaires.

Je debute en VBA et je souhaite creer un fichier client pour mon travail qui nous permettrait de selectionner nos meilleurs clients.

J'ai reussi à créer des userform de manière a créer un formulaire (societe nom prenom adresse ... n° facture et montant). J'ai reussi lorsqu'on appui sur ajouter à ce que dans dans une feuille nommé "client pro", les informations saisi s'insére dans le tableau.

Le point que j'arrive pas c'est que lorsque j'ai cliquer sur ajouter, je voudrai que sa regarde dans la feuille "client pro 2" si il y a déja un client avec le même nom de société et si oui je souhaiterais que le montant de la facture que je viens de saisir s'ajoute à ceux des ancienne. J'ai donc commencer mon code comme cela:

Private Sub Ajouter_Click()
On Error GoTo fin
Sheets("client pro").Activate

no_ligne = Range("A65536").End(xlUp).Row + 1

        Cells(no_ligne, 1) = soc
        Cells(no_ligne, 2) = nom
        Cells(no_ligne, 3) = adresse.Value
        Cells(no_ligne, 4) = CodeP
        Cells(no_ligne, 5) = ville
        Cells(no_ligne, 6) = tel
        Cells(no_ligne, 7) = mail
        Cells(no_ligne, 8) = da
        Cells(no_ligne, 9) = cai
        Cells(no_ligne, 10) = tic
        Cells(no_ligne, 11) = montant

Sheets("client pro 2").Activate
Dim cel As Range
cel = Columns("A").Find(what:=soc.Value, after:=ActiveCell)
If Not cel Is Nothing Then
a = ActiveCell.Column
Cells(a, 10).Value = Cells(a, 10).Value + montant
Else
no_ligne = Range("A65536").End(xlUp).Row + 1
 Cells(no_ligne, 1) = soc
        Cells(no_ligne, 2) = nom
        Cells(no_ligne, 3) = adresse.Value
        Cells(no_ligne, 4) = CodeP
        Cells(no_ligne, 5) = ville
        Cells(no_ligne, 6) = tel
        Cells(no_ligne, 7) = mail
        Cells(no_ligne, 8) = da
        Cells(no_ligne, 9) = cai
        Cells(no_ligne, 10) = tic
        Cells(no_ligne, 11) = montant
End If
        soc.Value = ""
        nom.Value = ""
        adresse.Value = ""
        ville.Value = ""
        tel.Value = ""
        mail.Value = ""
        da.Value = ""
        cai.Value = ""
        tic.Value = ""
        montant.Value = ""

Exit Sub
fin:
Application.Visible = True
Application.WindowState = xlMaximized
End Sub

Donc si vous pouvez m'expliquer ce que j'ai mal fait ou si il y a plus simple.

MERCI D AVANCE POUR VOTRE AIDE.

Bonjour et bienvenue sur le forum

Avec le fichier complet, il serait plus facile de t'aider !

Bye !