Sub Actions()
''B. pour supprimer les apostrophes en début de cellule
'J. Walkenbach, mpep
' For Each cell In Range("A7:AC7,AE7") 'In ActiveSheet.UsedRange
For Each cell In Range("A7:AK7")
If cell.PrefixCharacter <> "" Then
' en VBA le séparateur "," est le séparateur de millier
' le séparateur décimal est "."
cell.Formula = Application.Substitute(cell.Formula, ",", ".")
End If
Next cell
Range("AC7:AK7").NumberFormat = "[hh]:mm"
End Sub