Bonjour Joanne,
Sorry, I knew I missed something but couldn't tell what exactly.
Here is the modification to make. I thought it would be easier to change the whole JOBS ADDED section:
'Look for JOBS ADDED
Sh_New.Activate
For Each C_ell In Range("B2", Cells(Rows.Count, 2).End(xlUp))
  Set F_ound = Sh_Old.Columns(1).Find(C_ell)
  If F_ound Is Nothing And C_ell.Offset(0, -1) = "NPPAYROL" Then 'HERE IS THE MODIFICATION
    If To_Copy Is Nothing Then
      Set To_Copy = C_ell.EntireRow
    Else
      Set To_Copy = Union(To_Copy, C_ell.EntireRow)
    End If
  End If
Next
If Not To_Copy Is Nothing Then
  To_Copy.Copy
  Sh_added.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial
End If
Set To_Copy = Nothing
'
Regards