Sub SupprimeNombresNegatifs()
On Error Resume Next 'si aucune SpecialCell
With [I:I].SpecialCells(xlCellTypeConstants, 1)
.Replace "-*", "", xlWhole
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
Merci pour votre réponse, mais cela ne fonctionne pas
je dois surement mal faire... le problème cela enlève tous les montants négatifs de toutes les colonnes ...