Bonjour à tous,
Je veux comparer le contenu de deux cellules (i,k) et (j,l) dans deux feuilles du même workbook si c'est éqale alors copier la valeur de la cellule (t,k) dans (r,l). Voici le code que j'ai écris.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
l=26
j=50
For k = 10 To 17
        ILname = Sheets("feuil1").Cells(l, k).Value
        ConIl = Worksheets("feuil1").Cells(j, k).Value
            For i = 11 To 40
                EspIlcont = Worksheets("Espèces").Cells(5, i)
                If Sheets("feuil1").Cells(l, k) = Sheets("Espèces").Cells(1, i) Then
                   EspIlcont = ConIl
                 End If
                 Worksheets("Espèces").Cells(5, i) = EspIlcont
            Next i
        Next k
Quand je fais tourner le code, il compare mais ne copie pas la valeur demandée. Comment faire?
Merci pour vos reponses.