Sub MiseEnForme()
Dim DerLig As Long, Lig As Long
Dim CGrp As Integer, LGrp As Long, NumGrp As String
Dim Nom As String, TabNom As Range
Dim IndCoul As Integer
Dim Sht2 As Worksheet
' Définir les variables objet
Set Sht2 = Sheets("Feuil2")
' Dernière ligne du tableau
DerLig = Sht2.Range("B" & Rows.Count).End(xlUp).Row
CGrp = 2 ' Numéro de la colonne du 1er groupe, de la première ligne
LGrp = 2 ' Numéro de la ligne du 1er groupe dans Feuil1
' Définir le tableau de recherche des noms
Set TabNom = Sht2.Range("I1:K4")
' Pour chaque ligne de la feuille 2
For Lig = 3 To DerLig
' Récupérer le nom d'équipe de la ligne
Nom = Sht2.Range("E" & Lig).Value
' Si le nom n'est pas vide
If Nom <> "" Then
' Eviter les arrêts à cause d'erreur
On Error Resume Next
IndCoul = xlNone
' Trouver la couleur de fond pour le nom
IndCoul = TabNom.Find(What:=Nom, LookAt:=xlWhole).Interior.ColorIndex
On Error GoTo 0
' Mettre cette couleur sur la feuille 1
Sheets("Feuil1").Cells(LGrp, CGrp).Interior.ColorIndex = IndCoul
Else
' Vérifie si 1ère line d'un nouveau groupe
NumGrp = Right(Sht2.Range("A" & Lig).Value, 1)
If NumGrp <> "" Then
CGrp = 2: LGrp = LGrp + 1
End If
End If
' Incrémente le numéro de la colonne
CGrp = CGrp + 1
Next Lig
End Sub