Bonjour

Après une dure journée, je cherche à supprimer 2 colonnes (D et E) si la case D6 est vide.

j'ai codé comme ceux-ci mais cela ne fonctionne pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Sheets("v_RA").Select
    If MsgBox("Avez vous enlever le séparateur des millier(Ctrl H sur la colonne [Qté non livrée] . par rien)  ?", vbYesNo, "Demande de confirmation") = vbYes Then
            If IsEmpty("D6") = True Then
            Columns("D:D").Select
            Selection.Delete Shift:=xlToLeft
            End If
Pouvez vous m'aider?

Merci d'avance.

Svp

Sebastien