Sub Macro2()
Application.Goto Reference:="maplage"
With Application.FindFormat.Font
.FontStyle = "Italique"
.Subscript = False
End With
Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=False
End Sub