[COLOR="DarkSlateGray"][B]Sub epure()
Dim n&, m&, Tablo(), Zone As Range [COLOR="Sienna"]'typage des variables
'parce que je suis maniaque ou prudent (au choix)[/COLOR]
With Selection
For Each Zone In .Areas [COLOR="Sienna"]'traite la sélection zone par zone[/COLOR]
With Zone
Tablo = .Resize(.Rows.Count - (.Count = 1), .Columns.Count) [COLOR="Sienna"]'affecte
'une ligne supplémentaire au tableau si la zone est constituée
'd'une cellule unique[/COLOR]
For n = LBound(Tablo, 1) To UBound(Tablo, 1) + (.Count = 1)
For m = LBound(Tablo, 2) To UBound(Tablo, 2)
Tablo(n, m) = WorksheetFunction.Clean(Tablo(n, m))
Tablo(n, m) = m & " " & n
Next m
Next n
.Value = Tablo
End With
Erase Tablo [COLOR="Sienna"]'facultatif[/COLOR]
Next Zone
End With
End Sub[/B][/COLOR]