Comment completer code VBA doublons?

Merci avant tout a Lermite, qui m'a vraiment aidé, je suppose qu'il est hors ligne.

Si quelqu'un peut continuer il me manque la fin d'un code.

Ci joint fichier Keno, tout est expliqué

Merci a vous d'avance.

Re,

Ton classeur en retour.

>Lermite,

Supposons que je veuille étendre ta formule code vba

rajouter ligne 22 a 31

que dois-je modifier?

ajouter à la ligne..

    TLig = Array(7, 11, 15, 16, 17, 18, 19, 20)
'Pour avoir
    TLig = Array(7, 11, 15, 16, 17, 18, 19, 20, 22, 23,24,25,26,27,28,29,30,31)

et modifier la ligne

        For e = 0 To 7
'Pour avoir..
        For e = 0 To Ubound(TLig)

A+

EDIT:

faut aussi changer

.[A7:T20].Font.ColorIndex = Noir
par
.[A7:T31].Font.ColorIndex = Noir

Merci Lermite

Grace a toi j'avance

Merci

Voir l'Edit de mon poste précédant