Sub Test()
Dim a As Range, n&, col&, cel As Range
'Range("zone_de_cellules").Select
For Each a In Selection.Areas
n = 0
col = a.Columns.Count
For Each cel In a
MsgBox "Plage " & a.Address(0, 0) & " - Ligne " & 1 + Int(CDec(n / col)) & " - Colonne " & 1 + n Mod col
n = n + 1
Next cel
Next a
End Sub