écriture en VBA

Bonjour, a tous 

j'utilise cet algorithme ou je force les valeurs rang1...rang 2...etc

plutot que de les écrire je souhaiterais aller les prendre en K1 L1 M1 N1 pour rang 1

En K2 L2 M2 N2 pour rang 2

K3 L3 M3 N3 pour rang 3

K4 L4 M4 N4 pour rang 4

K5 L5 M5 N5 POUR RANG 5

 DevelopperCombinaisons()
    Dim rang1 As Variant
    Dim rang2 As Variant
    Dim rang3 As Variant
    Dim rang4 As Variant
    Dim rang5 As Variant
    
    ' Définir le s valeurs pour chaque rang
    rang1 = Array(1, 17, 28, 35)
    rang2 = Array(7, 8, 16, 39)
    rang3 = Array(4, 22, 32, 36)
    rang4 = Array(8, 15, 27, 30)
    rang5 = Array(3, 11, 13, 19)

quel serait la formule a écrire

merci a tous

Windows / Edge 133.0.0.0