Private Sub cmbmois_change()
Dim mois_nouveau As String
Dim mois_ancien As String
mois_nouveau = cmbmois_change.Value
mois_ancien = [B][COLOR=red]???[/COLOR][/B]
Range("j20:j200").Select
Selection.Replace What:=mois_ancien, Replacement:=mois_nouveau, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub