Bonjour,
Sinon passer par VBA peut être..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Variables
Dim note As Integer
Select Case Selection
Case Is = 1
Selection.Clear
Selection.Value = "Risques de trébuchement, heurt etc.."
Case Is = 2
Selection.Value = "Risques de chute de hauteur"
Case Is = 3
Selection.Value = "Risque A"
Case Is = 4
Selection.Value = "Risque B"
Case Is = 5
Selection.Value = "Risque C"
Case Is = 6
Selection.Value = "Risque D"
End Select
End Sub
Du coup peut importe la cellule ou vous allez rentrez votre 1 ou 2 ...
Un clic dessus permet d'écrire direct ce que vous avez préalablement rentré dans le VBA.