Intégrer une variable sur extraction minutes

Sub c()
 For n = 3 To Range("A" & Rows.Count).End(xlUp).Row
   Range("B" & n) = (Range("A" & n) * 24 - Int(Range("A" & n) * 24)) * 60
 Next
End Sub

Sub Minutes()
With ActiveSheet.UsedRange.Columns(2).Offset(1) 'une ligne de titres
    If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
    .FormulaR1C1 = "=IFERROR(MINUTE(""""&RC[-1]),"""")"
    .Value = .Value 'supprime les formules
End With
End Sub

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

Sub test()
Dim plage As Range, cel As Range, derlig As Long

    derlig = Range("a" & Rows.Count).End(xlUp).Row  'dernière ligne remplie

    Set plage = Range("b2:b" & derlig) 'Plage résultats

    For Each cel In plage 'Pour chaque cellule de la colonne B
        'la cellule extrait les minutes de la colonne A, avec la fontion Minute
        cel.Value = minute(cel.Offset(, -1).Value)
    Next cel

End Sub