Option Compare Text 'facultatif, si l'on veut ignorer la casse
Sub NPA()
Dim t, i&
With Feuil1 'CodeName de la feuille, à adapter
With Intersect(.UsedRange.EntireRow, .[B:C])
.Columns(2).Replace "-NPA", "", xlPart 'RAZ
t = .Cells 'matrice, plus rapide
For i = 1 To UBound(t)
If InStr(t(i, 1), "VIBRATOR") Then t(i, 2) = t(i, 2) & "-NPA"
Next
.Columns(2) = Application.Index(t, , 2)
End With
End With
End Sub