Copier/Coller un mot précis d'une phrase

Bonjour,

Je suis débutant en VBA et on m'a demandé au travail de faire une macro Excel dont le fonctionnement devrait être le suivant:

- La macro doit chercher dans toutes les cellules non-vides d'une colonne un mot précis et le coller dans une autre cellule plus loin sur la même ligne.

Par exemple:je veux chercher dans chaque cellule de la colonne D le mot "consigne", et juste ce mot là. A chaque fois que je trouve ce mot dans une phrase, je voudrais copier/coller seulement ce mot (pas toute la phrase) dans une autre cellule de la même ligne.

J'espère avoir été clair.

Merci d'avance ,

FGR.

Bonjour et bienvenu,

Essaye d'adapter le code suivant :

Sub copier()
    For Each cel In ActiveSheet.Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row)
        If cel Like "*consigne*" Then
            'copie le terme à la colonne 4 à droite de la colonne D
            cel.Offset(0, 4) = "consigne"
        End If
    Next cel
End Sub

Salut Raja,

J'ai testé ta macro et elle marche nickel.

Je te remercie de ton aide, et surtout de la rapidité à laquelle tu as répondu.

Cordialement,

FGR