Sub CopyTitres()
Dim Dercol As Integer
Dim Derlg As Integer
Application.ScreenUpdating = False
Derlg = Range("B" & Rows.Count).End(xlUp).Row
Dercol = Cells(2, Columns.Count).End(xlToLeft).Column
If Dercol > 2 Then Range(Cells(2, 3), Cells(Derlg, Dercol)).Clear
[Titres].Copy Sheets("base").Range("B2")
Dercol = Cells(2, Columns.Count).End(xlToLeft).Column
Range("B3:B204").Copy Range(Cells(3, 3), Cells(3, Dercol))
End Sub