Bonjour à toutes et tous,

Je sèche après plusieurs tentatives pour faire ma commande VBA. Dans la colonne G j'ai des commentaires textes pour lesquels je cherche le mot Femme ou Homme. Si dans le commentaire il y a le terme femme alors je remplace la phrase entière par femme. Si dans le commentaire il y a le terme homme alors je remplace la phrase entière par homme. Je cherche à exécuter cette macro de la deuxième ligne à la dernière non vide.

Voici mes deux essais non concluant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim av, y
With Sheets("Feuil1")
Dim DerniereLigne As Long
DerniereLigne = Range("G" & Rows.Count).End(xlUp).Row
For y = 2 To DerniereLigne
If Range("G" & y).Find("Femme") Is Nothing Then Range(("G" & y), 7) = "Homme" Else: Range(("G" & y), 7) = "Femme"
Next
End With
Merci de votre aide.

KASMINATOR Genesis