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