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
Qu'avez-vous donc fait ? Avec With [I:I] seule la colonne I est traitée, c'est évident...je dois surement mal faire... le problème cela enlève tous les montants négatifs de toutes les colonnes ...