Bonjour Blanchounet,
suite à ton dernier MP, voici pourquoi l'erreur se produisait : sur la feuille "ACCUEIL 81" quand tu cliques dans la zone blanche de la liste déroulante, aucune sélection n'a été faite dans la liste, donc ActiveSheet.ComboBox1.ListIndex = -1 ; comme ensuite j'ajoute 1, ça passe à 0 ; mais sur une feuille de calcul, une ligne n° 0 n'existe pas, et voilà pourquoi ça plante !
ayant trouvé la cause du problème, j'ai trouvé comment le régler ; c'est dans Module2, cette sub :
Sub GetInfos()
Dim Plg$, col As Byte: Plg$ = "C10:G16, C20:G21": FX = "RECHERCHE"
Select Case ActiveSheet.Name
Case "ACCUEIL 81": col = 3: FX = FX & "81"
Case "ACCUEIL 82": col = 10: Plg = Plg & ", C23:G24"
Case Else: Exit Sub
End Select
Application.ScreenUpdating = 0: Range(Plg).ClearContents
lg0 = ActiveSheet.ComboBox1.ListIndex: If lg0 = -1 Then Exit Sub
With LEPM.Cells(lg0 + 1, col)
lg1 = .Value
If lg1 > 0 Then lg2 = .Offset(, 1): FillPlg [C10], 7
lg1 = .Offset(, 2)
If lg1 > 0 Then lg2 = .Offset(, 3): FillPlg [C20], 2
If col = 3 Then Exit Sub
lg1 = .Offset(, 4)
If lg1 > 0 Then lg2 = .Offset(, 5): FillPlg [C23], 2
End With
End Sub
regarde les 3 lignes qui suivent le End Select.
dhany