Sub Metdes1danslaSelectionCourante()
Dim c As Range, A, t As Integer
A = Split(Range(Selection.Address).Address, ",")
Set c = Range(A(0))
For t = LBound(A) To UBound(A)
Set c = Union(c, Range(A(t)))
Next t
c.Value = (1 + Application.Min(111, 222, 333, 444, 555, 666, 777, 888, 999, 000))^2
End Sub