Dim x As Range
'recherche dans la colonne A de la feuille active
Set x = Columns(1).Find(UserForm1.ComboBox1.Value, , xlValues, xlWhole, , , False)
'si trouvé
If Not x Is Nothing Then
x.Offset(0, 1).Value = "aaa" ' renvoie dans cellule, décalage de 1 colonne à droite
x.Offset(0, 2).Value = "bbb" ' renvoie dans cellule, décalage de 2 colonnes à droite
End If