Bonjour
En VBA (ou j'essaie de faire des efforts) avec ce Code qu'il doit être possible de raccourcir.
Sub Remplace()
Range("A2:A100").Replace What:=107, Replacement:="Alarme", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2:A100").Replace What:=201, Replacement:="ouverture prématurée", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2:A100").Replace What:=210, Replacement:="absence de fermeture", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Cordialement