Workbooks(FichierDest).Sheets("Liste client").Range("b6").Select
Set ListeClients = Application.InputBox(Prompt:="Sélectionner la colonne qui contient les noms de clients", Title:="Liste clients", Default:="$B$6:$o$611", Type:=8)
Workbooks(FichierDest).Names.Add Name:="client_existant", RefersTo:=ListeClients