Bonjour à tous,

J'ai une macro qui recherche des mots dans un texte afin de vérifier les informations. Je souhaite que les résultats de cette MAcro s'affiche sur un autre fichier (Erreurs) dans un onglet spécifique (Produits Interdit).

Je n'arrive pas à modifier la Macro pour réussir cela. Voici ce que j'ai commencé à faire et qui ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim LastRow As Long
Dim pdtArray() As Variant
Dim resSheet As String

If MsgBox("Etes vous sur l'onglet contenant le catalogue vendeur ?", vbYesNo) = vbNo Then
    MsgBox "positionnez vous sur l'onglet catalogue et relancez"
    Exit Sub
End If
'1/ Selectionner la plage contenant les données du vendeur et la copier dans une variable tableau
' Plage : A4:AV de la feuille active
' Envoyer les résulats de recherche dans le fichier Erreurs ''Produits interdit''
ActiveSheet.UsedRange 'Refresh UsedRange
LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Range("A4:AV" & LastRow).Select
pdtArray = Range("A4:AV" & LastRow)
resSheet = Format("Produits Interdits")
With Windows("Erreurs.xls").Activate
    Sheets("Produits Interdits").Select

End With
Je pense que le problème vient des lignes en rouge ? mais je ne trouve pas la solution :-(

Merci d'avance de votre aide.

Aurélien