Afficher cellule adjacente à celle avec le texte recherché

Bonjour,

J'ai une base de donnée avec plus de 150 colonnes,

à chaque ligne il y a la valeur "R95" mais qui est dans l'une des 150 colonnes

je cherche à afficher le contenu de la celle suivant celle qui contient R95.

un exemle :

G34 sqfe texte R95 bonjour 345

R95 essai sqdff L34 au revoir 100

je cherche à afficher :

ligne 1 : "bonjour"

ligne 2 : "essai"

d'avance, MERCI !!

Bonjour,

Il faudrait savoir où doivent etre affichées ces données, et si elles doivent etre affichées toutes dans la meme colonne

oui je souhaite que ces données soient toutes affichées dans une meme colonne.

pour reprendre mon exemple je souhaite afficher dans une colonne x :

ligne 1 : "bonjour"

ligne 2 : "essai"

je compte sur vous car ça fait depuis le début de l'après midi que je cherche mais sans succès...

d'avance MERCI !

Bonjour,

Une solution avec la recherche dans la feuille 1 et les résultats dans la feuille 2

Sub Essai()
Dim WsC As Worksheet
Dim i As Long, Ligne As Long
Dim C As Range
    Set WsC = Worksheets("Feuil2")
    With Worksheets("Feuil1")
        For i = 1 To .UsedRange.End(xlDown).Row
            Set C = Rows(i).Find("R95", LookIn:=xlValues, lookat:=xlPart)
            If Not C Is Nothing Then
                Ligne = Ligne + 1
                WsC.Range("A" & Ligne) = "Ligne " & C.Row & " : " & C.Offset(0, 1).Value
            End If
        Next i
    End With
    Set C = Nothing: Set WsC = Nothing
End Sub

A+