RechercheV et formule multiples

Salut les experts!

j'ignore si c'est possible à faire mais j'ai un fichier ou dans la colonne G1 je peux sélectionner :JOUR-SOIR-NUIT. Je voudrais, dépendamment de la sélection, que le fichier recherche soit dans la plage de recherche D4:D20, J4:J20 ou K4:K20 un mot précis (exemple:Chute) et me copie si le mot est présent dans la cellule le texte de la cellule 2 colonne avant. EX: si je retrouve le mot chute dans D4...je copie dans la cellule sélectionné ce qu'on retrouve dans B4.

Merci à l'avance de votre aide!

Bonjour,

Sans aucun fichier joint de votre part, je ne vous retourne que le code.

Sub Recherche_Remplacement()
    Dim MotRecherche As String
    Dim x As Range
    Application.ScreenUpdating = False
    MotRecherche = InputBox("inscrivez le mot recherché", "Mot recherché")
    If MotRecherche <> "" Then
        Set x = Range("D4:D20,J4:J20,K4:K20").Find(MotRecherche, lookat:=xlPart)
        If Not x Is Nothing Then Cells(x.Row, x.Column) = Cells(x.Row, x.Column - 2)
    End If
    Set x = Nothing
End Sub

Cdlt