Erreur mais où ??

Private Sub CommandButton4_Click()
Dim im As String ' infos sur le BT recherché
On Error Resume Next
      Set MaPlage = Application.InputBox(prompt:="Merci d'indiquer votre numéro d'incident Fujitsu (IM.......)!!.", _
            Title:="Sélection d'une plage", Left:=5, Top:=5, Type:=8)
' Si l'utlisateur a cliqué sur le bouton Annuler ...
      If Err.Number = 424 Then
            MsgBox "Vous avez choisi d'annuler"
      End
      Else
' sinon la plage sélectionnée va être affichée
Dim SheetSource As Worksheet ' la feuille source
Dim SheetTarget As Worksheet ' la feuille cible
Dim LineSource As Range ' la ligne source courante
Dim CellTarget As Range ' la ligne cible courante (retenir la première cellule suffit en fait)
Dim ZoneSource As Range ' la plage de cellules à considérer
 
Set SheetSource = Worksheets("inters")
Set SheetTarget = Worksheets("Inter_IM")
Set CellTarget = SheetTarget.Cells(2, 1)
Set ZoneSource = SheetSource.Range("A2:aH65536")
            For Each LineSource In ZoneSource.Rows
                 If im = LineSource.Cells(18).Value Then
                   ' Il faut copier la ligne vers la cible
                     LineSource.Copy Destination:=CellTarget
                   ' Et on déplace la cible pour la prochaine fois !
                     Set CellTarget = CellTarget.Offset(1)
                 End If
            Next
      End If
End Sub