Raccourcir code

Bonjour a tous , cela va vous paraitre bête mais comment éviter ce genre de répétition ? J'ai chercher un peu sur le forum mais je ne trouve pas la solution

Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
Worksheets("Feuil1").Select
ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = ComboBox1.Value
Cells(ligne, 2) = TextBox1.Value
Cells(ligne, 3) = TextBox2.Value
Cells(ligne, 4) = TextBox3.Value
Cells(ligne, 5) = TextBox4.Value
Cells(ligne, 6) = TextBox5.Value
Cells(ligne, 7) = TextBox6.Value
Cells(ligne, 8) = TextBox7.Value
Cells(ligne, 9) = TextBox8.Value
Cells(ligne, 10) = TextBox9.Value
Cells(ligne, 11) = TextBox10.Value
Cells(ligne, 12) = TextBox11.Value
Cells(ligne, 13) = TextBox12.Value
Cells(ligne, 14) = TextBox13.Value
Cells(ligne, 15) = TextBox14.Value
Cells(ligne, 16) = TextBox15.Value
Cells(ligne, 17) = TextBox16.Value
Cells(ligne, 18) = TextBox17.Value
Cells(ligne, 19) = TextBox18.Value
Cells(ligne, 20) = TextBox19.Value
Cells(ligne, 21) = TextBox20.Value
Cells(ligne, 22) = TextBox21.Value
Cells(ligne, 23) = TextBox22.Value
Cells(ligne, 24) = TextBox23.Value
Cells(ligne, 25) = TextBox24.Value
Cells(ligne, 26) = TextBox25.Value
Cells(ligne, 27) = TextBox26.Value
Cells(ligne, 28) = TextBox27.Value
Cells(ligne, 29) = TextBox28.Value
Cells(ligne, 30) = TextBox29.Value
Cells(ligne, 31) = TextBox30.Value
Cells(ligne, 32) = TextBox31.Value
Cells(ligne, 33) = TextBox32.Value
Cells(ligne, 34) = TextBox33.Value
Cells(ligne, 35) = TextBox34.Value
Cells(ligne, 36) = TextBox35.Value
Cells(ligne, 37) = TextBox36.Value
Cells(ligne, 38) = TextBox37.Value
Cells(ligne, 39) = TextBox38.Value
Cells(ligne, 40) = TextBox39.Value
Cells(ligne, 41) = TextBox40.Value
Cells(ligne, 42) = TextBox41.Value
Cells(ligne, 43) = TextBox42.Value

Unload Fichetechnique

Else
End If
End If
End Sub

Bien cordialement a mon aimable sauveur

Bonsoir

Merci d'utiliser les balises de code disponible dans le menu en cliquant sur l'icone </> et en collant vos codes dans la fenêtre
J'ai corrigé votre post...

Pour votre demande

Else
Dim ligne As Integer
Dim i As Byte

If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then

    With Sheets("Feuil1")
        ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Cells(ligne, 1) = ComboBox1.Value
        For i = 1 To 42
            .Cells(ligne, i + 1) = Controls("TextBox" & i).Value
        Next i
    End With

    Unload Fichetechnique
End If
End If
End Sub

si ok -->

Cordialement

Bonsoir , désole de la réponse tardive , je n'avait pas reçu de notification .

je le ferai la prochaine fois , merci de ton aide

cordialement

Bonjour,

Pour votre fil -->

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite vraiment à prendre un peu de temps pour lire ces quelques lignes qui vous aideront dans vos demandes et réponses ainsi que sur les fonctionnalités de ce forum décrites par Sébastien administrateur du site -->

- La charte du forum
- Quelques fonctionnalités du forum à connaître
- Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui vous permettent :
---- de poster un code (</>)
---- de citer une phrase ( ' ')
---- de clôturer un fil lorsque vous en avez terminé (V)

Merci de votre participation

Cordialement