XL 2010 Fusionner 2 TextBox si ...

Sub Valider_Click()

    Unload UserForm1

    'NomEtPrénom = TextBox1.Value + " >>> " + TextBox2.Value ne sers plus....

    Sheets("Bd").Select
    Range("a65536").End(xlUp).Offset(1, 0).Select
    If Selection.Row = 65536 Then
        ActiveWorkbook.Sheets.Add after:=Worksheets(Workssheets.Count)
    End If

    'ActiveCell.Offset(0, 0) = NomEtPrénom 'Pas la peinne puisque tu fais un .Select
    With ActiveCell
        .Value = TextBox1.Value
        .Characters(1, Len(.Value)).Font.Color = vbBlack
        Dim i As Integer
        i = Len(TextBox1.Value) + 1
        .Value = .Value & " >>> " & TextBox2.Value
        .Characters(i, Len(.Value)).Font.Color = vbRed

    End With
End Sub

With ActiveCell
        .Value = TextBox1.Value
        .Characters(1, Len(.Value)).Font.Color = vbBlack
        Dim i As Integer
        i = Len(TextBox1.Value) + 1
        If TextBox2 <> "" Then
            .Value = .Value & " >>> " & TextBox2.Value
            .Characters(i, Len(.Value)).Font.Color = vbRed
        End If
    End With