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