Sub cartman()
Sheets("Recherche").Select
ville = Cells(4, 2)
j = 7
For i = 3 To 8
Sheets("Données").Select
If Cells(5, i) = ville Then
prenom = Cells(4, i)
age = Cells(6, i)
Sheets("Recherche").Select
Cells(j, 2) = prenom
Cells(j, 3) = age
j = j + 1
End If
Next i
End Sub