@+Thierry

Re Catherine

Peut tu exactement me donner tous les details ? car je n'arrive pas à recréer le contexte où tu aurais ce bug ?

De plus la variable "i" est utilisée dans les trois privates Sub ComboBoxX_Click, d'ailleurs je remarque maintenant que tu as rajouté une combobox de plus et que tu as rajouté des codes... et je vois qu'il manque une RAZ remise à zéro comme suit :

Private Sub ComboBox2_Click()
Dim Cell As Range
Dim r As Range
Dim i As Integer
Dim L As Integer
ComboBox3.Clear
ComboBox4.Clear
With WS1.Range("A1")
.AutoFilter 2, ComboBox2
.AutoFilter 3
.AutoFilter 4 '<<<<<<<<<<<< RAZ MANQUANTE
End With
L = WS1.Range("C65536").End(xlUp).Row
Set r = WS1.Range("C2:C" & L)
Set r = r.SpecialCells(xlCellTypeVisible)
ReDim TabC(0 To r.Count - 1)
For Each Cell In r
TabC(i) = Cell.Value
i = i + 1
Next
TriTabC
DoublonTabC
End Sub

Mais celà n'est peut-être pas la cause principale du problème...

Donc si tu peux me dire en détails excatement les manips qui engendrent le bugs et ensuite la combobox concernée...

@+Thierry