remplacement valeurs

Sub Macro1()
Dim cel As Range 'déclare la variable cel
 
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row) 'boucle sur toutes les cellules éditées de la colonne A
    'condition : si la valeur de la cellule est 42 ou 160, la remplce par "042-160"
    If cel.Value = 42 Or cel.Value = 160 Then cel.Value = "042-160"
Next cel 'prochaine cellule de la colonne A
End Sub

Sub modif()
For n = 1 To Range("A65536").End(xlUp).Row
  If Range("A" & n) = 42 Or Range("A" & n) = 160 Then
   Range("A" & n) = "42-160"
  End If
Next n
End Sub