dim nom_onglet as string
nom_onglet = range ("d3")
Sheets("bilan").Select
Sheets("bilan").Range("a3").Select
If Sheets("bilan").Range("a3").Value <> "" Then Sheets("bilan").Range("A3").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = "='" & nom_onglet & "'!M1" 'nom
ActiveCell.Offset(0, 1).Value = "='" & nom_onglet & "'!p1" 'date
ActiveCell.Offset(0, 2).Value = "='" & nom_onglet & "'!O1" 'nom onglet
ActiveCell.Offset(0, 3).Value = "='" & nom_onglet & "'!P4" 'total
ActiveCell.Offset(0, 4).Value = "='" & nom_onglet & "'!Q4" 'envirronement du mag
ActiveCell.Offset(0, 5).Value = "='" & nom_onglet & "'!R4" 'extérieur du mag
ActiveCell.Offset(0, 6).Value = "='" & nom_onglet & "'!S4" 'intérieur du mag
ActiveCell.Offset(0, 7).Value = "='" & nom_onglet & "'!T4" 'accueil
ActiveCell.Offset(0, 8).Value = "='" & nom_onglet & "'!U4" 'acte de vente
ActiveCell.Offset(0, 9).Value = "='" & nom_onglet & "'!V4" 'monture & verres
ActiveCell.Offset(0, 10).Value = "='" & nom_onglet & "'!W4" 'devis
ActiveCell.Offset(0, 11).Value = "='" & nom_onglet & "'!X4" 'objection
ActiveCell.Offset(0, 12).Value = "='" & nom_onglet & "'!Y4" '2ème paire
ActiveCell.Offset(0, 13).Value = "='" & nom_onglet & "'!Z4" 'prise de congés
ActiveCell.Offset(0, 14).Value = "='" & nom_onglet & "'!C4" 'point fort 1
ActiveCell.Offset(0, 15).Value = "='" & nom_onglet & "'!C7" 'point fort 2