Bonjour,
en cellule E5, la formule suivante,
=G5&H5&I5&J5
sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "G5": Range("H5:J5") = ""
Case "H5": Range("G5, I5:J5") = ""
Case "I5": Range("G5:H5, J5") = ""
Case "J5": Range("G5:I5") = ""
End Select
End Sub