Sub Révision()
Set chg = Application.InputBox("Sélectionnez à la souris la (ou les) palette(s) à déplacer", Type:=8)
Set n = Application.InputBox("Sélectionnez à la souris le point de changement", Type:=8)
chg.Cut Destination:=n
For Each cell In Cells(1, 1).CurrentRegion
If cell = "" Then cell.Value = 0
Next cell
Cells(1, 1).CurrentRegion.Select
Délimitation Selection
Charger_camion
End Sub