Problème entre une fonction et une Sub OnChange, incompréhensible !?

Sub MajDesPrix()
  Dim CodeArt As String, Prix As String, Ligne As Long
  Dim DLig As Long, Lig As Long, LigD, ShtD As Worksheet
  ' Empêcher le recalcul = moins long
  Application.Calculation = xlCalculationManual
  ' avec la feuile de bgpu
  With ActiveSheet
    ' Trouver la dernière ligne contenant un article
    DLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Pour chaque ligne
    For Lig = 5 To DLig
      ' Mémoriser les infos
      CodeArt = .Range("A" & Lig).Value
      Prix = .Range("E" & Lig).Value
      ' Si aucun prix
      If Prix = "" Then GoTo Suite
      ' Pour chaque feuille
      For Each ShtD In ThisWorkbook.Sheets
        ' Si le nom de la feuille n'est pas un de la liste
        If InStr(1, "Recap", ShtD.Name) = 0 Then
          ' Empêcher les erreurs
          On Error Resume Next
          LigD = 0
          ' Chercher la ligne correspondante au code
        Set LigD = ShtD.Range("A:A").Find(What:=CDbl(CodeArt), LookIn:=xlValues, LookAt:=xlWhole, _
                                        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
          On Error GoTo 0
          ' Si une ligne a été trouvée, on inscrit le prix
          If Not LigD Is Nothing Then
          Ligne = LigD.Row
            Application.EnableEvents = False
            ShtD.Range("E" & Ligne).Value = CDec(Prix)
            Application.EnableEvents = True
          End If
        End If
      Next ShtD
Suite:
    Next Lig
  End With
  MsgBox "Les prix ont été mis à jour"
  Application.Calculation = xlCalculationAutomatic
End Sub

Sub MajDesPrix()
Dim AChercher As Range, Cellule As Range, Feuille As Worksheet
Application.Calculation = xlCalculationManual
For Each AChercher In ActiveSheet.Range("A1").Resize(Range("A" & Rows.Count).End(xlUp).Row)
    If AChercher.Offset(0, 4) <> "" Then
        For Each Feuille In ThisWorkbook.Worksheets
            If Feuille.Name <> "Recap" Then
                Set Cellule = Feuille.Columns(1).Find(AChercher, LookAt:=xlWhole, LookIn:=xlValues)
                If Not Cellule Is Nothing Then
                    Cellule.Offset(0, 4) = AChercher.Offset(0, 4)
                End If
            End If
        Next Feuille
    End If
Next AChercher
Application.Calculation = xlCalculationAutomatic
MsgBox "Les prix ont été mis à jour"
End Sub

Private Sub Workbook_Activate()
Calculate
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Calculate
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Calculate
End Sub