Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/01/2012 par PB
'
'
Columns("B:B").Select
Range("B2").Activate
Selection.Replace What:="FLOOC0", Replacement:="FLB", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub