Sub sautsLignes()
num_ligne_fin = Sheets("DATA TICKET").Cells(Cells.Rows.Count, "AG").End(xlUp).Row
For lig = 1 To num_ligne_fin
While Right(Cells(lig, "AG"), 1) = Chr(10)
Cells(lig, "AG") = Mid(Cells(lig, "AG"), 1, Len(Cells(lig, "AG")) - 1)
Wend
Next lig
End Sub