Private Sub CbOk_Click()
'Vérifier si le textbox contient quelquechose
If Trim(TBoxNomActions) <> "" Then
'si oui, mettre le contenu dans la prochaine cellule libre de la colonne B
ThisWorkbook.Worksheets("Valeurs").Cells(Rows.Count, 2).End(xlUp)(2) = TBoxNomActions
TBoxNomActions = "" 'Vider le textbox
End If
Unload Me 'décharger le userform
End Sub