Liste de choix - Sélection automatique

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 14 Then
 Set c = ActiveSheet.Columns(15).Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
 If Not c Is Nothing Then
   Target.Offset(0, 2) = c.Offset(0, 1)
 End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, ActiveSheet.Range("A15:A36")) Is Nothing Then
        If Target.Cells.Count = 1 Then
            If Target.Value <> "" Then
                ActiveSheet.Range("C" & Target.Row).Value = Application.WorksheetFunction.VLookup(Target.Value, ActiveSheet.Range("O2:P18"), 2, False)
            Else
                ActiveSheet.Range("C" & Target.Row).Value = ""
            End If
        End If
    End If
End Sub