Utiliser la fonction Find pour mettre en forme une colonne

Bonjour à tous,

Après de multiple essais seul, je demande votre aide pour réaliser une partie de mon code avec lequel j'ai du mal!

Voilà, j'ai créé une macro pour la faire la mise en page d'un fichier excel, j'ai réussi à faire beaucoup de chose mais là je suis un peu perdue.

Dans mes fichiers à traiter, le nombre de colonnes et de lignes varient.

Je veux qu'à chaque fois qu'il détecte le mot "Sensor Temp" à l'intérieure des cellules de l'entête de mes colonnes, qu'il effectue l'opération de colorier la cellule contenant le mot et qu'il change la largeur de la colonne.

Et la même chose pour le mot "Sensor Reading".

Voici le début de ma partie de code problématique:

With Range(Cells(1, 9), Cells(1, DerCol))
    Set trouve = Cells.Find(what:="Sensor Temp", lookat:=xlPart, searchdirection:=xlNext)
    Set trouve2 = Cells.Find(what:="Sensor Reading(KPa)", lookat:=xlPart, searchdirection:=xlNext)    

        
    End With

Mes fonction Find semble fonctionné, ils me renvoient la première valeur trouvé correspondant à ma recherche.

J'ai essayé des fonction loop, loop while avec comme résultats une boucle infini. J'ai aussi essayé avec la fonction Case mes encore là, sans succès!

Select Case trouve
        Case Is = "Sensor Temp"
            Cells.Interior.ColorIndex = 23
        Case Is = "Sensor Reading"
            Cells.Interior.ColorIndex = 23
        Case Else
    End Select

Merci de votre aide!