Bonsoir Micka, bonsoir le forum,
Peut-être comme ça :
Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim D As String 'déclare la variable D (Début)
Dim F As String'déclare la variable F (Fin)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Set O = workssheets("Feuil1") 'définit l'onglet O
Set CEL = O.Cells(Me.ListBox1.ListIndex + 5, "C") 'définit la cellule CEL
D = Left(CEL.Value, 3) 'définit le début D
F = Mid(CEL.Value, 4) 'définit la fin F
CEL.Value = D & Format(Me.ComboBox1.Value, "00") & F 'modifie la cellule CEL
End Sub