Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AW3:AW200")) Is Nothing Then
Select Case Target
Case 1: Target.Offset(0, 1).Value = "Garantie constructeur"
Case 2: Target.Offset(0, 1).Value = "Visite semestrielle"
Case Else: Target.Offset(0, 1).Value = "autre..."
End Select
End If
End Sub