Salut a tous ! J'ai besoin de votre d'aide !

Je vous explique ce que je voudrais faire :
En gros des que l'on rencontre le mot "toto" sur une ligne j'aimerai que la prochaine cellule non vide située sur la meme ligne que le mot "toto" soit copié en A1.

Petit exemple :

Ligne 1 tata cellule vide valeur1

Ligne 2 titi cellule vide valeur2

Ligne 3 toto cellule vide cellule vide valeur3

*copie de la valeur3 dans la cellule A1*

A noter que le mot "toto" est toujours situé dans la colonne D.

J'ai deja réalisé une macro mais il y a plusieurs problème. Voila le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Rech()
 
  Dim DernièreLigne As Long
 
  DernièreLigne = Worksheets("Feuil1").UsedRange.Row - 1
  DernièreLigne = DernièreLigne + Worksheets("Feuil1").UsedRange.Rows.Count
 
 
  For i = 1 To DernièreLigne
 
    If Cells(i, 4).Value = "toto" Then
 
      For j = 4 To 10
 
        If Cells(i, j).Value = *cellule non vide suivant le mot "toto"* Then
          Cells(i, j).Select
        End If
 
        Selection.Cut
        Cells(1, 1).Select
        Worksheets("Feuil1").Paste
 
      Next j
 
    End If
 
  Next i
 
End Sub
- Au niveau du second "if" comment lui dire de prendre la cellule non vide suivante ?

Voila des suggestions je sèche la

Merci d'avance