Sub test()
Dim Conso As Workbook
Set Conso = ThisWorkbook
Dim i As Integer
Dim Tablo() As Variant
Tablo = Array("Roger", "David", "Gérard")
For i = 0 To 2
Application.DisplayAlerts = False
On Error Resume Next
Conso.Sheets(Tablo(i)).Delete
Workbooks.Open Filename:="[B]C:\Temp\[/B]" & Tablo(i) & ".xls"
Workbooks(Tablo(i) & ".xls").Sheets("Sheet1").Copy Before:=Conso.Sheets(i + 1)
Conso.Sheets(i + 1).Name = Tablo(i)
Workbooks(Tablo(i) & ".xls").Close False
Next
End Sub