Supprimer si contenu vide

Bonjour

Je cherche à vérifier le contenu d'une celle si il est vide et supprimer si c'est le cas la cellule voisine

j'ai utilisé :

Sheets("feuille1").select

if Sheets("feuille1").range("A15").value = " " then

range("A16").celar

Mais le vide ne marche pas !! avec Value .

Bonjour,

A tester

Sub test()
    With Sheets("feuille1").Range("A15")
        If .Value = "" Then .Offset(0, 1).Delete Shift:=xlToLeft
    End With
End Sub

A+

Bonjour,

Essaie ce script... Je pense que cela ira mieux.

Sub essais():

End Sub

Au plaisir.

Captain SOLO

bonjour,

j'ai mis le fichier test

value marche avec vide ?

merci pr vos réponses

Bonsoir,

A+