Sub SupprimeColonnes()
dercol = [IV1].End(xlToLeft).Column
Range(Cells(2, 14).Address & ":" & Cells(2, dercol).Address).Select
For Each c In Selection
If IsEmpty(c.Value) Then Exit Sub ' vide = après la dernière colonne
If c.Value < Date - 30 Then
c.EntireColumn.Delete
End If