Bug impresson

Bonjour, j'ai une feuille ou lorsque je renseigne un numéro de litige, les infos de ce dernier s'affichent automatiquement. Sauf que lorsque je rentre le numéro d'un litige qui n'existe pas, mon fichier excel plante. Comment faire pour remédier à cela. Fichier joint, Merci d'avance.

Bonjour,

Ici :

    While Sheets("Imprimer un litige").Range("C4") <> Sheets("Litiges").Range("B" & A)
        A = A + 1
    Wend

tu crées une boucle sans fin si ton numéro de litige n'existe pas !

Tu peux utiliser une boucle bien sûr pour cette recherche, mais abandonne alors cette vieillerie obsolète de boucle While... Wend depuis longtemps remplacée par Do... Loop !!!

Sub ValeurdeA()
    Dim v%
    v = Sheets("Imprimer un litige").Range("C4")
    With Sheets("Litiges")
        Do While .Range("B" & A) <> v
            If .Range("B" & A) <> "" Then
                A = A + 1
            Else
                A = 0: Exit Do
            End If
        Loop
    End With
End Sub

Et sans oublier de tester dans ta procédure appelante que A est >0...

Cordialement.