Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("n13:w47")) Is Nothing Then
If Target.Value <> "" Then
Dim Equipement As Variant
Worksheets("BDD").Activate
Equipement = WorksheetFunction.Match(Target.Value, Worksheets("BDD").Range("A79:ZZ79"), 0)
Worksheets("BDD").Cells(79, Equipement).Select
End If
Worksheets("Tdb").Activate
End If
End Sub