Sub connec()
Application.ScreenUpdating = False
répertoire = ThisWorkbook.Path & "\"
fichier = "B.xls"
Dim lFound As Boolean
lFound = False
For Each lWorkbook In Workbooks
If lWorkbook.Name = fichier Then
lFound = True
Application.DisplayAlerts = False
Workbooks("A.xls").Worksheets("test").Delete
Application.DisplayAlerts = True
Workbooks("B.xls").Worksheets("test").Copy After:=Workbooks("A.xls").Sheets("Synoptique")
Exit For
End If
Next
If lFound Then
Else
Workbooks.Open filename:=ThisWorkbook.Path & "\B.xls"
Application.DisplayAlerts = False
Workbooks("A.xls").Worksheets("test").Delete
Workbooks("B.xls").Worksheets("test").Copy After:=Workbooks("A.xls").Sheets("Synoptique")
Workbooks("B.xls").Close false
Workbooks("A.xls").Worksheets("synoptique").Select
End If
Application.ScreenUpdating = True
End Sub