Modif de Macro

Sub Bulk()
Dim I As Long
Dim ShL As Worksheet
Dim Cel As Range
Dim Cl As Integer
Dim Depart As String
Set ShL = Sheets("IMP")
  With Sheets("Print Labels")
    For I = 2 To .Range("A65536").End(xlUp).Row
      Set Cel = ShL.Columns("D:D").Find(.Range("A" & I), LookIn:=xlValues, Lookat:=xlWhole)
      If Not Cel Is Nothing Then
      If ShL.Range("J" & Cel.Row) = "" Or ShL.Range("J" & Cel.Row) = "N/A" Then
      val1 = ""
      Else
      val1 = ShL.Range("J" & Cel.Row) & "-"
      End If
      If ShL.Range("M" & Cel.Row) = "" Or ShL.Range("M" & Cel.Row) = "N/A" Then
      val1 = Left(val1, Len(val1) - 1)
      val2 = ""
      Else
      val2 = ShL.Range("M" & Cel.Row) & "-"
      End If
      If ShL.Range("N" & Cel.Row) = "" Or ShL.Range("N" & Cel.Row) = "N/A" Then
      If val2 <> "" Then val2 = Left(val2, Len(val2) - 1)
      val3 = ""
      Else
      val3 = ShL.Range("N" & Cel.Row)
      End If
'MsgBox val1 + val2 + val3
      .Range("C" & I) = val1 + val2 + val3
      
        '.Range("C" & I) = ShL.Range("J" & Cel.Row) & "-" & ShL.Range("L" & Cel.Row) & "-" & ShL.Range("M" & Cel.Row) & "-" & ShL.Range("N" & Cel.Row)
        
      End If
    Next I
  End With
End Sub