Simplifier ce bout de code

bonjour, quelqu'un peut il me dire comment simplifier cette ligne de code, en sachant que l'on teste la cellule as7 et que l'on copie les valeurs dans une autre colonne de ce même tableau, la banque 1 est en Range("au8:au51").Value et l'on va ainsi jusqu'à la banque 30 en Range("bx8:bx51").Value

merci

Sub recrecette()

If MsgBox("Opération irréversible. Souhaitez-vous continuez ?", vbQuestion + vbYesNo, "QUESTION ...") = vbNo Then

Exit Sub

Else

End If

'bank 1

If Range("as7") = 1 Then

Range("au8:au51").Value = Range("as8:as51").Value ' valeurs

End If

'bank 2

If Range("as7") = 2 Then

Range("av8:av51").Value = Range("as8:as51").Value ' valeurs

End If

End Sub

Bonsoir,

Essaie ceci :

Sub recrecette()
Dim I As Long

    If MsgBox("Opération irréversible. Souhaitez-vous continuez ?", _
              vbQuestion + vbYesNo, "QUESTION ...") = vbNo Then
        Exit Sub
    End If

    I = Range("AS7")
    If I > 0 Then
        Range(Cells(8, 46 + I), Cells(51, 46 + I)).Value = Range("AS8:AS51").Value
    End If

End Sub

extra , merci beaucoup

à+