Bonsoir,
j' ai réussi à modifier une grande partie des codes,
je bloc sur le code suivant :
Private Sub CommandButton2_Click()
Dim DernL As Integer
If TextBox1.Value = "" Then
MsgBox "Vous avez oublier de rentrer le nom de la personne."
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Vous avez oublier de rentrer le Prénom de la personne."
Exit Sub
End If
With ActiveSheet 'Worksheets("Janvier 2017") 'permet de détecter la denier
DernL = Range("B65536").End(xlUp).Row 'tableau colonne A
If DernL > 69 Then 'A adapter si la première ligne n'est plus la 9.
MsgBox "Le nombre de personne est limité à 65."
Exit Sub
End If
End With
ActiveSheet.Unprotect Password:="LN"
Cells(DernL + 1, 2).Value = UCase(TextBox1.Value)
Cells(DernL + 1, 3).Value = UCase(Left(TextBox2.Value, 1)) & LCase(Right(TextBox2.Value, Len(TextBox2.Value) - 1))
Range("B4").EntireRow.Copy
Range("B" & DernL + 1).EntireRow.PasteSpecial xlPasteFormats
Range("B4:B" & DernL + 1).EntireRow.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
ActiveSheet.Protect Password:="LN"
TextBox1.Value = ""
TextBox2.Value = ""
End Sub