Sub MAJTRD()
Windows("ANTELES.xlsm").Activate
'Identification répertoire et fichier source
Dim FL1 As Worksheet, Cell As Range, Plage As Range
'Déclaration de la variable UPC reprise dans la boucle
Dim upc As String
'Déclaration variable pour l'ouverture du fichier du mois
Dim strfichier As String
Dim strrepertoire As String
strfichier = Sheets("TRD").Range("B2").Value
strrepertoire = Sheets("TRD").Range("B1").Value
'Ouverture du fichier
' Workbooks.Open Filename:=strrepertoire & "\" & strfichier
'Activation fenetre ANTELES
Windows("ANTELES.xlsm").Activate
Range("A5").Select
Set FL1 = Worksheets("TRD")
With FL1
'upc = ActiveCell.Value
Set Plage = .Range("a5:a50") 'Prévoir une plage auto
For Each Cell In Plage
'Début de boucle
If Cell.Value <> "" Then
upc = Cell.Value
Windows("FCR-TRD_Arvato_S1.xls").Activate
'Range("A1:AE1").Select
Set Trouve = [C:C].Find(What:=upc, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not Trouve Is Nothing Then
Trouve.Offset(0, 2).Copy Cell.Offset(0, 2)
'Cell.Offset(0, 2).Select
'Selection.Copy
Windows("ANTELES.xlsm").Activate
' adrupc = Cell.Address
' Range(adrupc).Select
' ActiveSheet.Paste
' Range(adrupc).Select
Cell.Offset(1, 0).Select
Else
MsgBox Cell & " pas trouvé !"
End If
Else
End If
'Fin de boucle
Next
End With
'Set FL1 = Nothing
'Set Plage = Nothing
End Sub