Sub Minutes()
With ActiveSheet.UsedRange.Columns(2).Offset(1)
If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
.FormulaR1C1 = "=IFERROR(MINUTE(RC[-1]),"""")"
.Value = .Value 'supprime les formules
With .Offset(, -1).SpecialCells(xlCellTypeBlanks) 'cellules vides en 1ère colonne
Union(.Cells, .Offset(, 1)).Delete xlUp
End With
With .Parent.UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub