Sub entête_colonne()
Dim i, var As Integer
For i = 1 To 100
If Cells(1, i).Value = "bic" Then
var = i
Exit For
End If
Next
If var > 0 Then
Sheets("Feuil1").[$A$2:$D$10].AutoFilter Field:=var, _
Operator:=xlFilterValues, _
Criteria1:=Array(0, "rouge")
End If
End Sub