' If the name of the workbook doesnt exists in column C
If (LCase(Left(Fichier.Name, 6)) = "passed" Or LCase(Left(Fichier.Name, 6)) = "failed") _
And (Fichier.DateLastModified >= DatMin And Fichier.DateLastModified <= DatMax) _
And strFile <> strWB _
And Worksheets("Calcul2").Columns("C").Find(strFile, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then