Sub Feuille_resume()
'trouver le rang AV sur chaque segment de marché, en fonction de la couleur
Dim c As Range
Dim c2 As Range
For Each sh In Sheets(Array("ALTO", "AVSV", "AVTS", "ATEMPORAL", "PREMIUM", "CLASSIC", "FML"))
sh.Select
fin = [B65536].End(xlUp).Row
For Each c In Range("b4:b" & fin)
If c.Interior.ColorIndex = -4105 Then mavariable=c.value:Exit For
Next c
For Each c2 In Sheets("resume").Range("c6:i6")
If c2.Text = ActiveSheet.Name Then Exit For
Next c2
Sheets("resume").Cells(c2.Column, c2.Row + 7).Value = mavariable
Next sh
End Sub