If Application.CountA(Columns("A")) = 0 Then Columns("A").Locked = True
Bonjour Stephfor,
voici pour la colonne A:
Code:If Application.CountA(Columns("A")) = 0 Then Columns("A").Locked = True
For Col = [R23].Column To [B23].Column Step -1
If Cells(23, Col) = 0 Then Columns(Col).Delete
Next