Sub deb()
Set liste = CreateObject("Scripting.Dictionary")
With Sheets("Nouveau")
Set zone1 = .Range(.Cells(2, 1), .Cells(.Range("A" & Application.Rows.Count).End(xlUp).Row, 1))
End With
With Sheets("Ancien")
Set zone2 = .Range(.Cells(2, 1), .Cells(.Range("A" & Application.Rows.Count).End(xlUp).Row, 1))
End With
For Each z2 In zone2 'constitution d'une liste sans doublons des "Anciens"
If Not liste.exists(z2.Value) Then liste(z2.Value) = z2.Value
Next z2
For Each z1 In zone1 'chaque fois qu'un "nouveau" n'est pas dans la liste des "anciens"
If Not liste.exists(z1.Value) Then
comptenouveau = comptenouveau + 1 'compteur incrémenté
If z1.Offset(0, 4) = "fonct9" Then comptef = comptef + 1 'compteur pour les "nouveaux" avec fonct9 en colonne E
End If
Next z1
Sheets("Recup").Range("B7") = comptenouveau
Sheets("Recup").Range("D7") = comptef
Sheets("Recup").Range("C7") = zone2.Count - (zone1.Count - comptenouveau)
End Sub