Code à vérifier

[zombe]

Salut le forum

J'ai besoin de votre aide pour apprecier le code ci-dessous.
Je sais que ca coince à quelque part mais ou je saurai le dire.
Merci pour vos éclaircissements.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValSaisie
Dim P As Integer

  If Not Intersect(Range("B42"), Target) Is Nothing And Target.Count = 1 Then
    If Target = "" Then Exit Sub
    If InStr(1, UCase(Range("B4")), "PACK") > 0 Then
      Call Copie
    End If
  ElseIf Not Intersect(Range("B11,B10,B30,b33,B34"), Target) Is Nothing Then
    On Error GoTo fin
    Application.EnableEvents = False
    ValSaisie = Target
    Application.Undo
    P = InStr(Target, ValSaisie)
    If P > 0 Then
      Target = Left(Target, P - 1) & Mid(Target, P + Len(ValSaisie) + 1)
      If Right(Target, 1) = "--" Then
        Target = Left(Target, Len(Target) - 1)
      End If
    Else
      If Target = "" Then
        Target = ValSaisie
      Else
        Target = Target & "--" & ValSaisie
      End If
    End If
  End If

    Application.EnableEvents = True
ElseIf Range("B4").Value = "COMPTE CHEQUE PARTICULIERS" Then
    If Target.Address = "$B$5" And Target.Value <> "" Then
    Range("B7").Select
    ElseIf Target.Address = "$B$31" And Target.Value <> "" Then
    Range("B33").Select
    ElseIf Target.Address = "$B$37" And Target.Value <> "" Then
    Range("B39").Select
    ElseIf Target.Address = "$B$39" And Target.Value <> "" Then
    Range("B42").Select
    Call Macro1
    MsgBox ("Remettre la copie en impression au client pour vérification et renseigner IGOR avant de continuer")
    Range("B42").Select
    ElseIf Target.Address = "$B$42" And Target.Value <> "" Then
    Range("B44").Select
    ElseIf Target.Address = "$B$44" And Target.Value <> "" Then
    Range("B48").Select
    ElseIf Target.Address = "$B$48" And Target.Value <> "" Then
    Range("B49").Select
    Call Macro10
    'Range("d3").Select
    Range("d3").Select
    Else: GoTo fin
    End If    
     
 ElseIf Target.Address = "$B$46" And Target.Value <> "" Then
    Call Macro10
    GoTo fin
    
  Else: GoTo fin
  End If

fin:
  Application.EnableEvents = True   ' Dans tous les cas on remet les évènements en service
End Sub[code]