For I = 5 To anneeencours
V = Format(I, "0#")
If Dir("C:\TEST EXCEL\" & mois & "_" & V & "\Total entrant.xls") <> "" Then
Workbooks.Open Filename:="C:\TEST EXCEL\" & mois & "_" & V & "\Total entrant.xls"
Range("A5:D5").Copy
Windows("comparer 2 fichiers.xls").Activate
Range("A65536").End(xlUp)(2) = "20" & I
Range("B65536").End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues
Windows("Total entrant.xls").Close
Range("A1").Select
End If
Next I