Sub Alerte()
Dim Ligne As Long, C As Range, Plage As Range, Tabl As Variant, I As Long, Teste As Boolean
With Sheets("BD_CLMT")
Set Plage = .Range("J2", .Cells(.Rows.Count, 10).End(xlUp))
End With
With Sheets("Utilisateurs")
Ligne = .Cells(.Rows.Count, 8).End(xlUp).Row
Tabl = Application.Transpose(.Range("H2:H" & Ligne))
For Each C In Plage
For I = 1 To UBound(Tabl)
Teste = False
If C = Tabl(I) Then
Teste = True
Exit For
End If
Next I
If Teste = False Then
Ligne = Ligne + 1
.Cells(Ligne, 8) = C.Value
Tabl = Application.Transpose(.Range("H2:H" & Ligne))
End If
Next C
End With
End Sub