un début de macro sauf que je ne peux pas mettre 2 pays par exemple, hors je voudrai pouvoir y mettre une liste de pays :
Sub Cherche()
Application.ScreenUpdating = False
Cells.Find(What:="belgium", after:=ActiveCell, LookAt:=xlWhole).Activate
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select ' 1ere cellule ou sera coller la transposer
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
Application.ScreenUpdating = True
End Sub