Lignes vides

[jeanphi]

Bonjour

Dans le fichier ci-joint, je souhaite supprimer les lignes vides (ligne 32 en l'occurrence) grâce à une macro
J'utilise le code ci-dessous mais cà marche pas!! 🙁

Sub SupprimerLigne()
Application.ScreenUpdating = False
For n = 3000 To 1 Step -1
If Range('C' & n) = '' Then Rows(n).Delete
Next n
Application.ScreenUpdating = True
End Sub

Quelqu'un peut t'il m'aider? Merci

 

[jp14]

Re : Lignes vides

Bonjour

Il faudrait remplacer l'apostrophe par " dans

If Range('C' & n) = '' Then Rows(n).Delete

JP

 

[jeanphi]

Re : Lignes vides

bonjour

merci je vais essayer! 😉