Sub SupprimerLignesVidesFichiersCSV()
Dim chemin$, fichier$, n%
If MsgBox("Supprimer les lignes vides des fichiers CSV ?", 4) = 7 Then Exit Sub
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.csv") '1er fichier du dossier
Application.ScreenUpdating = False
While fichier <> ""
With Workbooks.Open(chemin & fichier).Sheets(1)
n = Len(.Cells(1)) - Len(Replace(.Cells(1), ";", "")) 'nombre de points-virgules
.Columns(1).Replace String(n, ";"), "", xlWhole 'efface les n points-virgules
.Parent.Close True
End With
fichier = Dir 'fichier suivant
Wend
End Sub