vba userform et macro

Private Sub CommandButton1_Click()
Dim lig As Variant, commune As String
With Sheets("liste commune")
  lig = Application.Match(Val(TextBox1), Sheets("liste commune").[A:A], 0)
  If IsError(lig) Then MsgBox "Code non trouvé...": Exit Sub
  commune = .Cells(lig, 2)
  MsgBox commune, , "Commune" 'pour tester
  'Call territoire
  'suite
End With
End Sub

Private Sub CommandButton1_Click()
Dim lig As Variant
If TextBox1 = "" Then TextBox1.SetFocus: Exit Sub
With Sheets("liste commune")
  lig = Application.Match(Val(TextBox1), .[A8:A65536], 0)
  If IsError(lig) Then MsgBox "Code non trouvé...": Exit Sub
  .[A2].Resize(, 72) = .Cells(lig + 7, 1).Resize(, 72).Value
  .Activate
End With
End Sub