Sub va()
Dim L As Long, F As Worksheet
Dim C As Range, LI As Range
L = 2
Rows("2:1000") = "" 'ou + Si... nécessaire
For Each F In Sheets
If F.Name = "Renault" Or F.Name = "Peugeot" Or F.Name = "Citroen" Then
For Each C In F.Range("A13", F.Cells(Rows.Count, 1).End(xlUp))
Set LI = C.Resize(1, 14)
If Application.CountIf(LI, 0) = 0 Then
Cells(L, 1).Resize(1, 14).Value = LI.Value
L = L + 1
End If
Next
End If
Next
End Sub