Bonsoir

Je cherche à écrire un script avec InStr; voici ce que j'ai:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub couleur()
 
Dim i As Integer
Dim k As String
Dim j As Integer
 
Worksheets(1).Activate
Application.Goto Worksheets(1).Range("B1")
 
For N = 1 To 100
 
If InStr(1, k, msc) Then Cells(k, 1).Interior.ColorIndex = 3
 
Next
 
End Sub

Le code n'a pas l'air de s'ex~cuter pourtant je n'ai pas de message d'erreur.
Si je ne m'abuse, "If InStr(1, k, msc)" signifie "si une cellule qui est une variable string contient la mention "msc", alors colorie cette cellule en rouge.

Pourquoi ça ne marche pas?
Merci pour votre aide

derout