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