Bonjour
Si tu modifies un peu ton array en l'écrivant ainsi :
Option Explicit
Dim plage
Sub essai()
plage = Array(ActiveSheet.Range("M3:S27"), ActiveSheet.Range("U3:AA27"), ActiveSheet.Range("M30:S54").Value, ActiveSheet.Range("U30:AA54"))
MsgBox plage(1)(13, 1)
End Sub
Tu obtiendras quelque chose.
Dans l'instruction MsgBox , plage((1) te renvoie la deuxième plage
Les coordonnées de la deuxième parenthèse te donne la valeur du 13° élément de la plage qui n'a qu'une colonne. Dans l'exemple du fichier joint, c'est 38
OK ?
Bye !