Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellulesBoutons As Range
Set CellulesBoutons = Me.Range("F11,F14,F17")
Application.EnableEvents = False
If Not Application.Intersect(Target, CellulesBoutons) Is Nothing Then
Me.OLEObjects("CB" & Replace(Target.Address, "$", "")).Object.Caption = Target.Value
End If
Application.EnableEvents = True
End Sub