Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("D6:D5000"))
If Not Rg Is Nothing Then
For Each xCell In Rg
Select Case xCell.Value
Case Is = "ABCDE"
MsgBox "Blablabla", vbInformation, "Information"
ThisWorkbook.FollowHyperlink "C:\Users\Doc 1.pdf"
Case Else
End Select
Next
MsgBox "Blabla", vbYesNo, "YesNO"
If réponse = vbYes Then
ThisWorkbook.FollowHyperlink "C:\Users\Doc 2.xlsx"
Else
End If
End If
End Sub