Sub test()
Dim titre_source As Range
Dim classeur_cible As String
Dim onglet_cible As String
DateJourRU = Format(Now, "dd-mm-yy")
nom = "BEF-"
With Sheets(1)
Rows("1:2").Select
ActiveWorkbook.Names.Add Name:="titre1", RefersToR1C1:=Selection
End With
onglet_source = onglet1
Set titre_source = Range("titre1")
classeur_cible = nom & DateJourRU
onglet_cible = onglet1
Call copier(onglet_source, titre_source, classeur_cible, onglet_cible)
End Sub