Salut,

A       B        C      D       E
1	45		45	
2	454		45	
3	8		 2	
4	754		65	
5	2		32	
6	12		23	
7	5		 7	5
8	232		 1	
9	665		12	
10     323		 6	

Sub comparer()

	dim classeur as object
	dim feuilles as object
	dim feuille as object
	dim cellule as object
	dim c1 As Integer,c2 As Integer,c3 As Integer
	classeur = thisComponent  ' le classeur
	feuilles = classeur.Sheets ' la collection des feuilles
	feuille = feuilles.getByName("a")
 'la feuille je l'ai nommée a

	dim i as integer
	for i=1 to 10
 		c1= feuille.getcellrangebyname("A" & i).value
 		c2= feuille.getcellrangebyname("D" & i).value
 		c3 = feuille.getcellrangebyname("B" & i).value
 		
 		if c1 = c2 then
 		 	feuille.getcellrangebyname("E" & i).value = c3
		 end if
 	next i
End Sub

Sub comparer()

	dim classeur as object
	dim feuilles as object
	dim feuille as object
	dim cellule as object
	dim c1 As Integer,c2 As Integer,c3 As Integer
	classeur = thisComponent  ' le classeur
	feuilles = classeur.Sheets ' la collection des feuilles
	feuille = feuilles.getByName("a") 'la feuille je l'ai nommée a

	dim i as integer
	dim nblignes as integer
	nblignes = feuille.rows.count
 'on stocke dans une variable le nombre de lignes
' on peut aussi utiliser une constante sachant que le nombre de lignes et 32000
	for i=1 to nblignes

 'on vérifie toutes les lignes (il faut adapter au contenu de ta feuille)
 	 ' on utilise les variables c1,c2,c3 pour stocker
 ' le contenu des cellules à chaque passage dans la boucle

                c1= feuille.getcellrangebyname("A" & i).value
 		c2= feuille.getcellrangebyname("D" & i).value
 		c3 = feuille.getcellrangebyname("B" & i).value
 		
 		if c1 = c2 then 
 		 	feuille.getcellrangebyname("E" & i).value = c3
		 end if
 	next i
End Sub

Enfaite ta solution fonctionne mais pas comment j'ai besoin, car toi ca fonctionne si le mot à la ligne 10 de la f1 = le mot à la ligne 10 de la f2 et ca ne fonctionne pas si le mot ligne 10 f1 <> du mot l10 f2 mais = au mot l52 f2

j'ai fait ca, ca fonctionne, c'est un peu long car si le mot n'existe pas sur la feuille 2 il la parcourt en entier pour chercher si le mot est là ou non, ca ralentit mais utile si les mots ne sont pas à la même ligne, pour trouver il ne me manqué que le code pour prendre la valeur d'une cell:

Sub trouve()
Dim classeur as Object
Dim lesfeuilles as Object
Dim feuille as Object
Dim cell as Object
Dim feuille1 as Object

classeur = thisComponent
lesfeuilles = classeur.Sheets
feuille = lesfeuilles.getByName("Feuille2")
feuille1 = lesfeuilles.getByName("Feuille1")
Dim x as Long
Dim y as Long
Dim xx as Long


xx = 1 'ligne
y = 0 'colonne
x = 1


while feuille.getCellByPosition(y,xx).string <> ""

if feuille.getCellByPosition(y,xx).string = feuille1.getCellByPosition(y,x).string then

feuille1.getCellByPosition(y+15,x).string = feuille.getCellByPosition(y+15,xx).string
feuille1.getCellByPosition(y+16,x).string = feuille.getCellByPosition(y+16,xx).string
x = x+1
xx = xx+1

else

while feuille.getCellByPosition(y,xx).string <> feuille1.getCellByPosition(y,x).string and feuille1.getCellByPosition(y,x).string <> ""
x = x+1

wend


if feuille.getCellByPosition(y,xx).string = feuille1.getCellByPosition(y,x).string then
feuille1.getCellByPosition(y+15,x).string = feuille.getCellByPosition(y+15,xx).string
feuille1.getCellByPosition(y+16,x).string = feuille.getCellByPosition(y+16,xx).string
else
xx = xx + 1
x = 0
end if


end if
wend

End sub