Macro copier coller les valeurs

Sub Macro2()
'
' Macro2 Macro Copier dans la feuille "Véhicules" à partir de la ligne 10,les 'Cellules de A25 à W220 de chaque Onglet à partir du 14 ème
Sheets("Véhicules").Select
Range("A10").Select
For I = 14 To Sheets.Count
Sheets(I).Select
If ActiveSheet.Name = "Véhicules" Then
Sheets(I + 1).Select
End If
Range("A25:w220").Copy
Sheets("Véhicules").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
ActiveCell.Offset(1, 0).Select
Next
'

Sub Macro2()
' Macro2 Macro Copier dans la feuille "Véhicules" à partir de la ligne 10,les Cellules de A25 à W220 de chaque Onglet à partir du 14 ème
With Sheets("Véhicules")
.[A10:W65536].ClearContents 'efface
lig = 10
For I = 14 To Sheets.Count
If Sheets(I).Name <> "Véhicules" Then
.Range("A" & lig & ":W" & lig + 195).Value = Sheets(I).[A25:W220].Value
lig = lig + 196
End If
Next
End With
End Sub