Sub SansVblf()
Dim aChercher As String, RemplacerPar As String
aChercher = vbLf ' on remplace les sauts de ligne
RemplacerPar = "" ' on les remplace par autre chose - ici une chaine vide par exemple
Columns("a:g").Replace what:=aChercher, Replacement:=RemplacerPar, Lookat:=xlPart
End Sub