comment enregistrer les modifs depuis des text box dans listview et BD

Private Sub CommandButton1_Click() 'enregistrer les modifs
Dim no_ligne As Integer
Sheets("Liste").Select
      no_ligne = ListView1.SelectedItem
        
            Cells(no_ligne, 1) = TextBox2.Value
            Cells(no_ligne, 2) = TextBox3.Value
            Cells(no_ligne, 3) = TextBox4.Value
            Cells(no_ligne, 4) = TextBox5.Value
            Cells(no_ligne, 5) = TextBox6.Value
            Cells(no_ligne, 6) = TextBox7.Value
            Cells(no_ligne, 7) = TextBox8.Value
            Cells(no_ligne, 8) = TextBox9.Value
             Cells(no_ligne, 9) = TextBox10.Value
              Cells(no_ligne, 10) = TextBox11.Value
               Cells(no_ligne, 11) = TextBox12.Value
                Cells(no_ligne, 12) = TextBox13.Value
                 Cells(no_ligne, 13) = TextBox14.Value
                  Cells(no_ligne, 14) = TextBox15.Value
                   Cells(no_ligne, 15) = TextBox16.Value
                    Cells(no_ligne, 16) = TextBox17.Value
                     Cells(no_ligne, 17) = TextBox18.Value
                      Cells(no_ligne, 18) = TextBox19.Value
                      Cells(no_ligne, 19) = TextBox20.Value
                      Cells(no_ligne, 20) = TextBox21.Value
                      Cells(no_ligne, 21) = TextBox22.Value
                      Cells(no_ligne, 22) = TextBox23.Value
                      Cells(no_ligne, 23) = TextBox24.Value
             Cells(no_ligne, 24) = TextBox25.Value
            
     
        
Unload UserForm1

UserForm1.Show
End Sub