Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$B$3" Then
Application.ScreenUpdating = False
Select Case Target.Value
Case "Réparation"
Sheets("Descriptif réparation").Visible = True
Sheets("Descriptif modification").Visible = False
Case "Modification"
Sheets("Descriptif réparation").Visible = False
Sheets("Descriptif modification").Visible = True
Case "DESP"
Sheets("Descriptif réparation").Visible = False
Sheets("Descriptif modification").Visible = False
End Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E5:E6")) Is Nothing Then
Range("F5") = Sheets("Adresse").Range("E" & Target.Row)
End If
End Sub