Sub foreach()
Dim cell As Range
Dim cellule As Range
For Each cell In Sheets('classe').Range('b5:b40')
For Each cellule In Sheets('equipe').Range('r3:v3')
If cellule.Value = cell.Value Then
cell.Offset(0, 1).Value = cellule.Offset(12, 0).Value
Exit Sub
End If
Next cellule
Next cell
End Sub