Sub Copy_Zone_Vers_Feuille_Valeur_Et_Format()
derlact = Sheets("Bilan 2018").Cells(Rows.Count, 1).End(xlUp).Row + 1
Set Rng = Worksheets(ActiveSheet.Name).Range("B6:D8"): Rng.Copy: Worksheets("Bilan 2018").Range("A" & derlact).PasteSpecial (xlPasteValuesAndNumberFormats): Worksheets("Bilan 2018").Range("A" & derlact).PasteSpecial (xlPasteFormats): Application.CutCopyMode = False
End Sub