Sub Traiter()
Dim colsource$, coldest$, critere$, v, defaut$, t, i&
colsource = "F" 'colonne étudiée
coldest = "B" 'colonne à remplir
critere = "*.html" 'à adapter
v = 1
defaut = "-" 'valeur par défaut
t = Cells(1, colsource).Resize(Cells(Rows.Count, colsource).End(xlUp).Row + 1)
ReDim rest(1 To UBound(t), 1 To 1)
rest(1, 1) = Cells(1, coldest) 'titre
For i = 2 To UBound(t) - 1
rest(i, 1) = IIf(t(i, 1) Like critere, v, defaut)
Next
Cells(1, coldest).Resize(UBound(t) - 1) = rest
End Sub