Sub Absent()
Application.ScreenUpdating = False
TabloE = Range("E2:E" & Range("E65500").End(xlUp).Row)
TabloF = Range("F2:F" & Range("E65500").End(xlUp).Row)
Columns(7).ClearContents ' Efface colonne G
[G1] = "Absents"
LigneG = 2
For E = 1 To UBound(TabloE)
Trouvé = 0 ' 1 si trouvé, 0 si absent
For F = 1 To UBound(TabloF)
If TabloE(E, 1) = TabloF(F, 1) Then
Trouvé = 1
End If
Next F
If Trouvé = 0 Then
Cells(LigneG, "G") = TabloE(E, 1)
Trouvé = 1
LigneG = LigneG + 1
End If
Next E
End Sub