**الكود لملء الغيابات في شيت ABS:**

Sub FillAbsences()

    Dim wsAbs As Worksheet
    Dim wsRapJour As Worksheet
    Dim lastRowAbs As Long
    Dim lastRowRapJour As Long
    Dim i As Long

    Set wsAbs = Sheets("ABS")
    Set wsRapJour = Sheets("RAP JOUR")

    lastRowAbs = wsAbs.Cells(wsAbs.Rows.Count, 1).End(xlUp).Row
    lastRowRapJour = wsRapJour.Cells(wsRapJour.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRowRapJour
        If wsRapJour.Cells(i, 2) = "غياب" Then
            wsAbs.Cells(lastRowAbs + 1, 1) = wsRapJour.Cells(i, 1)
            wsAbs.Cells(lastRowAbs + 1, 2) = wsRapJour.Cells(i, 2)
            wsAbs.Cells(lastRowAbs + 1, 3) = wsRapJour.Cells(i, 3)
            lastRowAbs = lastRowAbs + 1
        End If
    Next i

End Sub

**الكود لمسح الغيابات من شيت RAP JOUR:**

Sub ClearAbsences()

    Dim wsRapJour As Worksheet
    Dim lastRowRapJour As Long
    Dim i As Long

    Set wsRapJour = Sheets("RAP JOUR")

    lastRowRapJour = wsRapJour.Cells(wsRapJour.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRowRapJour
        If wsRapJour.Cells(i, 2) = "غياب" Then
            wsRapJour.Cells(i, 2) = ""
        End If
    Next i

End Sub

**ملاحظات:**

* تأكد من تغيير أسماء أوراق العمل في الكود لتتوافق مع أسماء أوراق العمل في ملفك.
* تأكد من تمكين الماكرو في إعدادات Excel.
* قم بتشغيل الماكرو "FillAbsences" لملء الغيابات في شيت ABS.
* قم بتشغيل الماكرو "ClearAbsences" لمسح الغيابات من شيت RAP JOUR.