Problème de VBA - Page 2

oui la pour l exemple j en ai mis que 1

mais il te suffit de recopier le code et d ajouté 2 au ligne
reponse = MsgBox("voulez vous ajoutez?", vbYesNo) '= vbYes(MsgBox("ok ca marche"))
If reponse = vbNo Then Exit Sub
If reponse = vbYes Then
Worksheets("Qe tarif dégressif").Cells(19, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(20, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(19, 1).Value = "de"
Worksheets("Qe tarif dégressif").Cells(20, 1).Value = "a"
intervalde = InputBox("de quel intervale voulez vous partir?", "interval de depart:")
intervalea = InputBox("A quel intervale voulez vous finir?", "interval de fin:")
Worksheets("Qe tarif dégressif").Cells(19, 2).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(20, 2).Value = intervalea

puis

reponse = MsgBox("voulez vous ajoutez?", vbYesNo) '= vbYes(MsgBox("ok ca marche"))
If reponse = vbNo Then Exit Sub
If reponse = vbYes Then
Worksheets("Qe tarif dégressif").Cells(21, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(22, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(21, 1).Value = "de"
Worksheets("Qe tarif dégressif").Cells(22, 1).Value = "a"
intervalde = InputBox("de quel intervale voulez vous partir?", "interval de depart:")
intervalea = InputBox("A quel intervale voulez vous finir?", "interval de fin:")
Worksheets("Qe tarif dégressif").Cells(21, 2).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(20, 2).Value = intervalea

ainsi de suite