Bonsoir,
Bonsoir Frangy,
Mon interprétation
bouton qui permet d'ajouter ou de retrancher " : " au debut de la chaine de caractere d'une cellule,sur une selection en "E", d'apres l'etat de la premiere cellule de la selection.
Cdlt
Option Explicit
Private Sub CommandButton1_Click() '<toggle>
Dim rng As Range, c As Range
Dim x As String
Application.ScreenUpdating = False
Set rng = Range(ActiveCell, ActiveCell.End(xlDown))
x = Left(rng(1), 1)
For Each c In rng
If x = ":" And Left(c, 1) <> ":" Then c = ":" & c
If x <> ":" And Left(c, 1) <> ":" Then c = ":" & c
If x = ":" And Left(c, 1) = ":" Then c = Replace(c, ":", "")
If x <> ":" And Left(c, 1) = ":" Then c = Replace(c, ":", "")
Next
Set rng = Nothing
End Sub