C'est excellent, tout marche nickel et vraiment un très très grand merci à toi.
J'ai encore deux petites questions ; est ce que dans une listbox on peut selon un mot d'une colonne mettre la police en rouge et j'aimerai qu'une de mes textbox enregistre la date au formmat mmmm/aaaa et ne sais pas ou le mettre dans mon code que voici :
If IsNumeric(Replace(tmp, ".", ",")) And InStr(tmp, " ") = 0 Then
tmp = Replace(tmp, ".", ",")
Range(nomtableau).Item(Enreg, c) = CDbl(tmp)
Else
If IsDate(tmp) Then
Range(nomtableau).Item(Enreg, c) = CDate(tmp)
Else
Range(nomtableau).Item(Enreg, c) = tmp
End If