XL 2016 Ajout de lignes et bordures

Option Explicit

Private Sub CommandButton1_Click()
  Dim lig&: Application.ScreenUpdating = 0
  lig = Cells(Rows.Count, 1).End(3).Row + 1
  With Cells(lig, 1)
    If lig > 2 Then _
      .Offset(-1).Resize(, 3).Borders(9).Weight = 2
    .Value = UCase$(TextBox1)
    .Offset(, 1) = TextBox2
    .Offset(, 2) = TextBox3
    With .Resize(, 3)
      .Borders(9).Weight = 3: .Borders(7).Weight = 3
      .Borders(10).Weight = 3: .Borders(11).Weight = 2
    End With
  End With
  ActiveCell.Select: Application.ScreenUpdating = -1
End Sub