Trouver un mot après une ligne vide

Bonjour à tous,

J'ai une liste de donnée que je veux mettre sous forme de colonne.

Pour cela je dois avoir le même nombre de cellule sur l'information concernant le produit et ici je n'ai pas cela et je veux dire à Excel de trouver trouver ou chercher un mot dans la cellule. Mon idée ici, c'est que si ce mot n'existe pas après une ligne vide -> insérer un "motquelconque" dans la cellule.

Je joint un fichier comme exemple.

Voici un code que j'ai essayé. , mais ça n'a pas marché

Sub insérer()
Dim x As Range
Set x = Range("A1:A65560").Find("mot", LookIn:=xlValues)
If x.Value = mot Then ActiveCell.Offset(-1, 0).Value = motquelconque
End If
End Sub

Merci d'avance

Bonjour

Tu devrais donner un exemple de ce que tu as au départ et de ce que tu veux obtenir.

Bye !

Bonjour

Les données de départ sont les mêmes que dans l'exemple.

Et je veux mettre ces données en colonne en utilisant le code ci après.

Mais le souci c'est qu'il faut qu’on insère un "mot" ou ligne entière contenant une valeur

pour avoir un nombre de ligne exacte pour que le code marche.

Le "mot" ici remplace l'information manquant.

Le résultat voulu est dans la feuille 2 après qu'on exécute le code.

Merci de ta réponse.

Sub excelmacro()
Application.ScreenUpdating = False
Sheets("Feuil1").Select
Range("A1").Select

Sheets("Feuil2").Select
Range("A2").Select
For I = 1 To 8
Sheets("Feuil1").Select
If ActiveCell.Value <> "" Then

xnom = ActiveCell.Value
xprix1 = ActiveCell.Offset(1, 0).Value
xprix2 = ActiveCell.Offset(2, 0).Value
xdate = ActiveCell.Offset(3, 0).Value
xheure = ActiveCell.Offset(4, 0).Value
xID = ActiveCell.Offset(5, 0).Value
xclient = ActiveCell.Offset(6, 0).Value
xinfo1 = ActiveCell.Offset(7, 0).Value
xinfo2 = ActiveCell.Offset(8, 0).Value

Sheets("Feuil2").Select
ActiveCell.Value = xnom
ActiveCell.Offset(0, 1).Value = xprix1
ActiveCell.Offset(0, 2).Value = xprix2
ActiveCell.Offset(0, 3).Value = xdate
ActiveCell.Offset(0, 4).Value = xheure
ActiveCell.Offset(0, 5).Value = xID
ActiveCell.Offset(0, 6).Value = xclient
ActiveCell.Offset(0, 7).Value = xinfo1
ActiveCell.Offset(0, 8).Value = xinfo2
ActiveCell.Offset(1, 0).Select
Sheets("Feuil1").Select
ActiveCell.Offset(9, 0).Select
Else
    I = 10
End If
I = I - 1
Next
Application.ScreenUpdating = True
End Sub

Pardon j'ai oublié de joindre l'exemple.