Sub macro1()
Dim sh1 As Worksheet, c As Range
For Each sh1 In Sheets(Array("ALTO", "AVSV", "AVTS", "ATEMPORAL", "PREMIUM", "CLASSIC", "FML"))
With Worksheets(sh1.Name).UsedRange.Columns(3)
Set c = .Find(what:="ALTA VISTA", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
frangmarcas .Cells(c.Row, c.Column - 2).Value, sh1.Name
End If
End With
Next sh1
End Sub
Sub frangmarcas(Marca As String, NomFeuille As String)
Dim i2 As Byte
With Worksheets("Resume")
For i2 = 3 To 9
If .Cells(6, i2) = NomFeuille Then Exit For
Next i2
.Cells(13, i2) = Marca
End With
End Sub