Sub copie_valeurs()
Const Cols = "a:b,e,g:i,l,n"
Dim xrg As Range, maxlig&, Col, i&, calcul
calcul = Application.Calculation: Application.Calculation = xlCalculationManual
Col = Split(Cols, ",")
For i = 0 To UBound(Col)
If InStr(Col(i), ":") = 0 Then Col(i) = Trim(Col(i)) & ":" & Trim(Col(i))
Next i
Col = Join(Col, ",")
For Each xrg In Range(Col).EntireColumn
maxlig = Cells(Rows.Count, xrg.Column).End(xlUp).Row
Range(Cells(1, xrg.Column), Cells(maxlig, xrg.Column)) = Range(Cells(1, xrg.Column), Cells(maxlig, xrg.Column)).Value
Next xrg
calcul = Application.Calculation = calcul
End Sub