VBA Vérification plage de dates en fonction d'un identifiant unique

Dim nbLignes As Integer
Dim nbLignes2 As Integer
Dim X As Long
Dim n As Long

Range("A1").Select
nbLignes = Range("a1", Selection.End(xlDown)).Cells.Count

MsgBox nbLignes

  Sheets("Feuil1").Select
   Range("A1").Select
   nbLignes2 = Range("A1", Selection.End(xlDown)).Cells.Count

MsgBox nbLignes2

n = 2
m = n + 1

Do While n <= nbLignes

If ("TEST.b" & n) = ("Feuil1.b" & n) Then
Range("s&n ") = "blue"

Else:
    Sheets("Feuil1").Select
Range("s2") = "red"

n = n + 1
Loop

End If

End Sub

Bonjour à tous,

J'ai deux fichiers Excels, un qui contient des dates de dépenses affectés à une personne (l'identifiant agent colonne A et la date de dépense en colonne G par exemple)

Un second me répertorie les dates d'absence de ces mêmes personnes. On a aussi l'identifiant en colonne A, en colonne D la date de début d'absence et E la date de fin d'absence (qui sont égales en cas d'absence d'une journée)

J'essaie de construire une macro qui testerais pour les identifiants agents similaires si une date de dépense (fichier1) est comprises dans une des plages d'absences qui sont dans la deuxième feuille (fichier2)

Ci joint le début de code que j'ai essayé de faire, mais je bloque vraiment, est ce que vous auriez des idées de ce que je devrais faire ?

Merci d'avance,

Bonjour, quelqu'un aurait une idée ?