Bonjour,  
 
Je suis bloqué sur un message d'erreur "Next sans For" dans le code suivant :
 
Sub correspondance()
 
Dim i, j As Integer
Dim c, d As String
 
 
For i = 2 To 31000
 
    c = Sheets("transaction rôle standard" ).Cells(i, 1).Value
 
        For j = 2 To 31000
                If Sheets("transactions description" ).Cells(j, 1).Value = c Then
                d = Sheets("transactions description" ).Cells(j, 2).Value
                Exit For
        Next j
         
    Sheets("transaction rôle standard" ).Cells(i, 2).Value = d
     
Next i
 
End Sub
 
Merci beaucoup pour votre aide !

oups pardon il manquait un End if
Désolé!