Simplifier un code VBA

[hypo78]

Bonjour à tous,

j'ai un code VBA gracieusement élaboré par Chalet53 qui me permet de faire une recherche dans une colonne.
Lorsque j'ai demandé ce code, la recherche s'effectuait sur une condition -> G
Dans mon utilisation, il faut que je cherche les "G" mais aussi pleins d'autres conditions (GW, GWS, J....)

Comment peut-on écrire OU en VBA plutôt que de faire comme j'ai fait ci dessous

For i = 7 To derligne
             If Cells(i, col) = "G" Then
             Range("A" & j) = Cells(i, 1)
             j = j + 1
             End If
             Next i
             For i = 7 To derligne
             If Cells(i, col) = "GW" Then
             Range("A" & j) = Cells(i, 1)
             j = j + 1
             End If
             Next i

Merci d'avance

 

[hypo78]

Re : Simplifier un code VBA

Re,

j'ai été un peu vite, en fait çà fonctionne du 01 au 09 et "çà plante" pour les dates supérieures..
une idée??

 

[hypo78]

Re : Simplifier un code VBA

Pour être plus clair pour cet ultime problème, je joins le fichier.
La macro fonctionne pour les jours de 1 à 9 et "plante" pour les suivants