Sub demo() Dim cel As Range, maplage As Range Application.ScreenUpdating = False Set maplage = Range("A1:A" & Range("A" & Columns(1).Rows.Count).End(xlUp).Row) maplage.AutoFilter Field:=1, Criteria1:="=*" & vbLf & "*" Set maplage = maplage.SpecialCells(xlCellTypeConstants, 23).SpecialCells(xlCellTypeVisible) If Not maplage.Rows.Count = 0 Then For Each cel In maplage cel.Value = Replace(cel.Value, vbLf, " ") Next End If maplage.AutoFilter Application.ScreenUpdating = True End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question