Erreur d'indice

RENAUDER à dit:

Bonjour,
Je ne sais pas si j'ai tout compris (pourquoi une RECHERCHEV) mais je ferais comme le montre le code.
Sinon je crois penser que tu veux à partir d'une liste de N pays, les ventiler dans différents groupes ?
Dans ce cas il y a plus simple mais pour l'instant je réponds à ta demande faite sur ce site.

Code:

Private Sub lst1G_Click()
    If op1.Value = True Then
        Sheets("Groupe A").Activate
        Range("C1").Value = Me.lst1G.List(Me.lst1G.ListIndex)
        Range("C12").FormulaR1C1 = "=VLOOKUP(R1C3,Equipes!R13C2:R16C2,1,FALSE)"
    End If
End Sub

Cliquez pour agrandir...