Copier/coller plusieurs cellules d'une feuille selon la valeur d'une autre cellule

Private Sub Worksheet_Change(ByVal Target As Range)
If Not intersect(Target, Range("A46")) Is Nothing Then

' ton code


End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not intersect(Target, Range("A46")) Is Nothing Then

' ton code


End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
If Target.Address <> "$A$46" Then Exit Sub 'si le changement a lieu ailleurs qu'en A6, sort de la procédure
Sheets("chargement carton").Range("B1:J2").Copy Sheets("commande_client").Range("G4546") ' copie et colle la plage
Range("T45").Select 'sélectionne la cellule T45
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim ref As Byte 'déclare la variable ref (REFérence)

If Target.Address <> "$A$46" Then Exit Sub 'si le changement a lieu ailleurs qu'en A6, sort de la procédure
ref = CInt(Right(Target.Value, 1)) - 1 'définit la variable ref
With Sheets("Carton") 'prend en compte l'onglet "Carton"
    'copie et colle la plage décalée de ref x 9 colonnes
    .Range(.Cells(2, 1).Offset(0, 9 * ref), .Cells(3, 9).Offset(0, 9 * ref)).Copy Sheets("Commande").Range("G45")
End With 'fin de la prise en compte de l'onglet "Carton"
Range("T45").Select 'sélectionne la cellule T45
End Sub