Sub SigneMoins()
With Range("A1", [A65536].End(xlUp))
ThisWorkbook.Names.Add "Table", .Value
.Formula = "=IF(ISNUMBER(INDEX(Table,ROW())),-ABS(INDEX(Table,ROW())),IF(ISNA(INDEX(Table,ROW())),"""",INDEX(Table,ROW())))"
.Value = .Value
End With
ThisWorkbook.Names("Table").Delete
End Sub