Set listObj = Sheets("Recherche").ListObjects("Résultat")
For c = 1 To listObj.ListColumns.Count
For r = 1 To listObj.ListRows.Count
If listObj.DataBodyRange.Cells(r, c).Value = "Technologies" Then
listObj.DataBodyRange.Rows(r).Style = "TECHSTYLE"
End If
If listObj.DataBodyRange.Cells(r, c).Value = "Fonctions" Then
listObj.DataBodyRange.Rows(r).Style = "FUNCSTYLE"
End If
If listObj.DataBodyRange.Cells(r, c).Value = "Tests" Then
listObj.DataBodyRange.Rows(r).Style = "TESTSTYLE"
End If
Next r
Next c