Supprimer les lignes dont cellules sont vides

Bonjour,

J'ai un souci par rapport à un code VBA que je voulais utiliser pour l'action indiqué dans le sujet.

Je vous joins mon fichier en exemple. Pour l'explication dans la colonne P en bleue, je voudrais exécuter une macro qui supprime les lignes dont les cellules de la colonne P sont vides.

Je n'ai aucune erreur de signalé sur le code mais il ne fonctionne pas.

Pour info, la feuille Synthèse fait partie d'un classeur où se trouve d'autres feuilles.

Merci par avance.

Bonjour,

Ci-joint une proposition à tester.

Bonne journée

Bouben

Bonjour,

Je ne vois pas le code.

Le code est au même endroit qu'avant

Public Sub SupprVides()

Désolé, en fait j'ai ouvert le fichier sur mac. Mais sur PC je le vois bien, et il fonctionne très bien.

Merci beaucoup pour votre aide

Bonjour tout le monde,

Quelques lignes pour le boulot que l'on peut encore agrémenter d'un ScreenUpdating = False si la longueur du fichier l'imposait!

'
With Worksheets("Synthese")
    iFlag = .Range("A" & Rows.Count).End(xlUp).Row
    For x = iFlag To 3 Step -1
        If .Range("P" & x).Value = "" Then .Rows(x).Delete shift:=xlUp
    Next
End With
'

Bon dimanche

A+