Bonjour,
J'ai le code suivant :
Mais ma colonne ne s'efface pas ?
Merci par avance pour votre aide.
Cdt,
J'ai le code suivant :
Code:
MaxColumn = Range("IV2").End(xlToLeft).Column
For z = 1 To MaxColumn Step 1
If Cells(2, z).Value <> "Instrument type" Then
MsgBox z
Columns(z).Delete Shift:=xlToLeft
End If
Next
Mais ma colonne ne s'efface pas ?
Merci par avance pour votre aide.
Cdt,