Changer couleur d'onglet à chaque nouvel onglet

BonjourR à tous.

J'ai copié la macro 2 de " Yvouille" qui m'intéresse.

Que je changerai en " sub Change_couleur_2_L_onglet() "

Sub Macro2()

Sheets("Feuil2").Select

With ActiveWorkbook.Sheets("Feuil2").Tab

.Color = 15773696 ' ici en l'occurence bleu

.TintAndShade = 0

End With

End Sub

Ma question est la suivante :

est-il possible (en modifiant la macro ci-dessus ou avec 1 autre) que lorsque l'on rajoute un onglet, le nouvel onglet change de couleur a chaque fois, pour ne jamais avoir 2 onglets de même couleur qui se suivent.

B.Ap.M à tous Roland

J'ai trouvé, merci à tous.

Sheets("en cours").Select

With ActiveWorkbook.Sheets("en cours").Tab

.Color = RGB(Int(255 * Rnd) + 1, Int(255 * Rnd) + 1, Int(255 * Rnd) + 1)

End With

Dans la macro qui ouvre le nouvel onglet et qui le nomme en " en cours ".

Sub Nouvel_onglet ()

Sheets("original").Visible = True

Sheets("original").Copy Before:=Sheets(1)

Sheets("original (2)").Select

Sheets("original (2)").Name = "en cours"

'******************************

Sheets("en cours").Select

With ActiveWorkbook.Sheets("en cours").Tab

.Color = RGB(Int(255 * Rnd) + 1, Int(255 * Rnd) + 1, Int(255 * Rnd) + 1)

End With

'*************************************

Sheets("original").Select

ActiveWindow.SelectedSheets.Visible = False

End sub