Private Sub cmbValidez_Click()
Dim X As String
Dim Y As String
Dim DerLig As Integer
X = UCase(Left(tbNom, 1))
Y = X & " ."
Application.ScreenUpdating = False
DerLig = Sheets(Y).Range("A65536").End(xlUp).Row
Sheets(Y).Cells(DerLig + 1, 1).Value = tbNom
Sheets(Y).Cells(DerLig + 1, 1).Font.Bold = True
Sheets(Y).Cells(DerLig + 2, 1).Value = tbAdresse
Sheets(Y).Cells(DerLig + 2, 2).Value = tbCPville
With Sheets(Y).Cells(DerLig + 3, 1)
.Value = Right(tbTel, 9)
.NumberFormat = """Téléphone: ""00\.00\.00\.00\.00"
.HorizontalAlignment = xlLeft
End With
With Sheets(Y).Cells(DerLig + 3, 2)
.Value = Right(tbPort, 9)
.NumberFormat = """Portable: ""00\.00\.00\.00\.00"
.HorizontalAlignment = xlLeft
End With
Sheets(Y).Range("D2:D" & DerLig + 3).FormulaR1C1 = _
"=INDIRECT(CHOOSE(MOD(ROW(),3)+1,""L(-1)C(-3)"",""L(-2)C(-3)"",""LC(-3)""),FALSE)"
Sheets(Y).[A1].CurrentRegion.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets(Y).Columns("D:D").Delete Shift:=xlToLeft
Sheets(Y).[A1].Select
Application.ScreenUpdating = True
Unload UserForm1
End Sub