Private Sub CommandButton1_Click()
Dim tablo, i&
With [A1].CurrentRegion.Columns(7)
If .Rows.Count = 1 Then Exit Sub
tablo = .Value 'matrice, plus rapide
For i = 2 To UBound(tablo)
If tablo(i, 1) > 0 Then tablo(i, 1) = tablo(i, 1) - 1
Next
.Value = tablo
.EntireColumn.Offset(, 2).Delete
End With
End Sub