XL 2016 Son et Msgbox avec condition dans une colonne

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("H" & Target.Row) = "OUI" Then PlayTheSound "tada.wav": Msgbox "Hello World"
End  Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim CelH As Range
   Set CelH = CelluleImpactée(Dans:=[H:H], Par:=Target)
   If CelH Is Nothing Then Exit Sub
   Select Case CelH.Value
      Case "Completed": PlayTheSound "chimes.wav"
      Case "Not Completed": PlayTheSound "chord.wav"
      Case "OUI": PlayTheSound "tada.wav"
      End Select
   End Sub
Private Function CelluleImpactée(ByVal Dans As Range, ByVal Par As Range) As Range
   Dim Cel As Range, DirDep As Range
   On Error Resume Next
   Set DirDep = Par.DirectDependents: If Err Then Exit Function
   On Error GoTo 0
   For Each Cel In DirDep
      Set CelluleImpactée = Intersect(Cel, Dans)
      If CelluleImpactée Is Nothing Then Set CelluleImpactée = CelluleImpactée(Dans, Cel)
      If Not CelluleImpactée Is Nothing Then Exit Function
      Next Cel
   End Function

Private Function CelluleImpactée(ByVal Dans As Range, ByVal Par As Range) As Range
   Dim Cel As Range, Depdts As Range
   On Error Resume Next
   Set Depdts = Par.Dependents: If Err Then Exit Function
   On Error GoTo 0
   For Each Cel In Depdts
      Set CelluleImpactée = Intersect(Cel, Dans)
      If Not CelluleImpactée Is Nothing Then Exit Function
      Next Cel
   End Function