Sub Le_Confinement_me_fait_faire(Optional de_ces_trucs_de_Ouf)
Dim i&, j&, t$, vArr
For i = 1 To Range("A2:C3,C4:C6,D5").Areas.Count
For j = 1 To Range("A2:C3,C4:C6,D5").Areas(i).Count
t = t & "," & Range("A2:C3,C4:C6,D5").Areas(i).Item(j).Address(0, 0)
Next j
Next i
vArr = Split(Mid(t, 2), ",")
MsgBox vArr(3)
MsgBox vArr(LBound(vArr))
MsgBox vArr(UBound(vArr))
End Sub