problème de condition et recherche

bonjour le forum,

désolé je reviens avec une question.

je souhaite faire créer une boucle sous condition:

"si le contenu de ma combo est égal à une des cellules de la colonne A alors j'insère la cellule de droite de la colonne A dans un textbox sinon j insère "no comment"

j utilise le code suivant mais j'obtiens toujours "no comment".

Dim Ligne1 As Integer

For Ligne1 = 1 To 30000

If Cells(Ligne1, 1).Value = Me.CmbSocGes.Value Then

Cells.Find(what:=CodeIsin.Value, after:=ActiveCell, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False).Activate


Commentaires = ActiveCell.Offset(0, 1)

Else

Commentaires = "Aucun Commentaires Disponibles"

End If
Next Ligne1

merci d avance pour votre aide.

Petite idee de ce que je veux faire en PJ