Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H5]) Is Nothing Then Exit Sub
Application.DisplayAlerts = False 'si la feuille n'existe pas
[H:J].Replace "S (*)", "S (" & CStr([A3]) & ")", xlPart
[U:W].Replace "S (*)", "S (" & CStr([N3]) & ")"
[AH:AJ].Replace "S (*)", "S (" & CStr([AA3]) & ")"
End Sub