Option Explicit
Sub Remplacement_Tableau()
Dim Tabl(), i$, f As Workbook
Tabl = Range("Tableau")
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
With Sheets("Sociétés")
i = 39
Do While .Cells(i, "A").Value <> ""
Set f = Workbooks.Open(.Cells(i, "A").Value)
f.Sheets("Tableau").Range("Tableau") = Tabl
f.Close True
i = i + 1
Loop
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
End With
End Sub