Private Sub CommandButton1_Click() 'ajouter
Me.Height = 220
Me.Height = Me.Height + Frame1.Height
Frame1.Visible = True: Frame1.Top = 180: Frame1.Caption = "Nouvelles données "
CommandButton4.Visible = False: TextBox2.Visible = False: TextBox4.Visible = False: TextBox5.Visible = False: TextBox7.Visible = False: TextBox9.Visible = False
For col = 1 To 11: Me("Textbox" & col) = "": Next
Frame1.Controls("ComboBox6").SetFocus
Li = DerL + 1 'ligne d'écriture
With Sheets("Base")
.Range("A" & DerL & " :K" & DerL).Copy
.Range("A" & Li).PasteSpecial Paste:=xlPasteFormats ', Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'pour formats
End With
End Sub