Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
Application.ScreenUpdating = False
Application.EnableEvents = False
With [A1].CurrentRegion
For i = 2 To .Rows.Count
If Application.CountA(.Cells(i, 1).Resize(, 3)) < 3 Then .Cells(i, 4) = "" Else _
If Dir(.Cells(i, 1) & "\" & .Cells(i, 2)) = "" Then .Cells(i, 4) = "Fichier introuvable" Else _
.Cells(i, 4) = IsNumeric(ExecuteExcel4Macro("'" & .Cells(i, 1) & "\[" & .Cells(i, 2) & "]" & .Cells(i, 3) & "'!R65536C256"))
'.Cells(i, 4) = HasWorksheet(.Cells(i, 1), .Cells(i, 2), .Cells(i, 3))
Next
End With
Application.EnableEvents = True
End Sub