bonjour à tous,

je suis en cours de création de plusieurs macro pour mon travail
et j'aurais besoin d'aide pour l'une d'entres elles

je créé des nomenclature de pièces de plusieurs lignes qui varies suivant certaines machines.

j'aurais besoin d'avoir une macro :

si ma cellule de A6 à A infini est pleine en écriture
les celulles B C et D d'à coté s'encadrent automatiquement

exemple si ma A6 est pleine en écriture la B6 C6 et D6 s'encadrent
si par contre ma A15 est vide il n'y a pas d'encadrement

j'ai réussi avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Subbord()
Dim cellule As Range
For Each cellule In Range("A6:A10008")
   If cellule <> "" Then cellule.Borders.Weight = xlThin
Next
End Sub
mais il n'y a que les celulles pleines qui s'encadrent mais malheuresement
je n'ai que mes Colonnes A et D qui ont de l'écriture.

merci d'avance