Créer une boucle à partir d'une macro

Bonjour le forum, j'ai besoin de votre aide pour un nouveau problème.

j'ai une feuille excel avec des onglets représentant mes clients et je dois passer le prix à 0 pour les clients ou le numéro émetteur est dans l'onglet 'NumClients' ET ou le type est "mobile". j'ai cette macro qui permet de le faire et qui fonctionne bien :

Sub exemple_macro()
Dim F As Worksheet
Dim i As Long

Set F = Worksheets("Client1")

    With F
        For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row
            On Error Resume Next
            k = Sheets("NumClients").Cells.Find(.Range("B" & i), LookIn:=xlFormulas, lookat:=xlWhole)
            If k > 0 And UCase(.Range("F" & i)) = "MOBILE" Then .Range("I" & i) = 0
            On Error GoTo 0
        Next i
    End With

End Sub

mais du coup je dois changer le nom de la feuille à chaque fois, serait-il possible d'automatiser ceci ?

les 3 premières feuilles seront toujours en premier et toutes celles d'après seront des clients. Voici un fichier exemple, merci de votre aide.

(La macro est déjà dans le fichier)

Bonjour,

Si j'ai bien saisi, un extrait à adapter :

Dim F As Integer

For F = 4 To Worksheets.Count
    With Worksheets(F)
        'reste du code
    End With
Next F

Ah c'était si simple ?? Merci ^^ le code si jamais ça peut être utile :

Sub exemple_macro()
Dim i As Long
Dim F As Integer

For F = 4 To Worksheets.Count
    With Worksheets(F)

        For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row
            On Error Resume Next
            k = Sheets("NumClients").Cells.Find(.Range("B" & i), LookIn:=xlFormulas, lookat:=xlWhole)
            If k > 0 And UCase(.Range("F" & i)) = "MOBILE" Then .Range("I" & i) = 0
            On Error GoTo 0
        Next i
    End With
Next F

End Sub

Merci bien Pedro, bonne journée

Oui ce n'est pas très compliqué, mais ça ne s'invente pas si tu ne l'as jamais abordé !
Merci du retour et pour la validation du sujet !