Application d'une condition pour une fonction IF [MACRO]

Bonjour à tous !

Je souhaite savoir quelle est la fonction qu'il faut taper afin de répondre à une condition IF dans une macro.

Vous trouverez si dessous une partie de la macro que j'utilise

    
    With Target
        .DataBodyRange.Interior.Color = xlNone
        Set rng = .PivotFields("Clients à surveiller").DataRange
    End With

    For Each Cell In rng
        If Not IsEmpty(Cell) Then
            For I = 3 To 4

Je souhaiterai remplacer la ligne "If not Is emply(cell) then. Par une ligne permettant d'appliquer le for lorsque la cellule dans la Range contient le mot "Total XXXX".

Car je l'applique dans un TCD et dans les totaux des sous partis il y a le nom des entreprises

Ex : Total APPLE

Total Microsoft

Je n'ai pas reussi à trouver comment exprimer le "contient au moins Total

Merci d'avance

Cdlt

Bonjour,

If Not IsEmpty(Cell)  And Application.Proper(Cell) Like "*Total*" Then