Sub recherche()
Ville = Sheets("Calcul").Cells(5, 1).value
j = 9
For i = 2 To 250
If .Cells(6, i).value = Ville Then
with Sheets("Etude")
Club = .Cells(7, i).value
[B]TypeSport = .Cells(9, i).value[/B]
end with
with Sheets("Calcul")
.Cells(j, 1).value = Club
[B].Cells(j, 3).value = TypeSport[/B]
end with
j = j + 1
End If
Next i
End Sub