Range(Cells(5, 1), Cells(5, 12)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(6, 1), Cells(DernLigne2, 12)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(5, 1), Cells(5, 12)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(5, 6), Cells(5, 8)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(5, 9), Cells(5, 10)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(5, 11), Cells(5, 12)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic