'Plage de recherche des valeurs
Set Plage = Sheets("Synoptic").Range(Range(Code2).Offset(1, 0).Address & ":" & Cells(CStr(DLSynoptic), Range(Code2).Column).Address)
'Mise en liste des valeurs
For Each cell In Plage
Set Liste = Sheets("Travail").Range("A1:A" & Sheets("Travail").Range("A65536").End(xlUp).Row + 1, "B1:B" & Sheets("Travail").Range("B65536").End(xlUp).Row + 1)
If Application.CountIf(Liste, cell) = 0 Then
Sheets("Travail").Range("A65536").End(xlUp).Offset(1, 0) = cell
End If
Next cell