Sub BTN_SUPPR()
'Déclarations des variables
Dim Mes_Plaques As Range, cell As Range
Set Mes_Plaques = _
Cells(4, "I").Resize(Cells(Rows.Count, "I").End(xlUp).Row)
With Application
.ScreenUpdating = False 'rafraichissement écran =OFF
For Each cell In Mes_Plaques 'début nettoyage des données
cell = .WorksheetFunction.Trim( _
Replace(cell.Text, "-", vbNullString))
Next cell 'fin nettoyage
.ScreenUpdating = True 'rafraichissement écran =ON
End With
End Sub