Bonjour,
J'ai un bug sur ces lignes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Windows("BIBLE.XLS").Activate
    Dim RefCode As Range
    Set RefCode = Columns("A").Find(code)
    If RefCode Is Nothing Then
        MsgBox "Non trouvé"
        Windows(CLASSINIT).Activate
    Else
        RefCode.Activate
        TRANSFERT2
    End If
Quelqu'un peut-il m'aider ?
Merci