Dim couplerecherché As String, coupletrouvé As String
startanalyse = 2
endanalyse = Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Range("A65536").End(xlUp).Row
For i = 5 To 6 '2 lignes fichier arrêt
couplerecherché = Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 1).Value & _
Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 7).Value
'recherche dans autre fichier
trouve = 0
For j = startanalyse To endanalyse
couplerecherché = Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 3).Value & _
Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 5).Value
If couplerecherché = coupletrouvé Then
Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 41).Value = _
Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 3).Value
End If
If trouvé = 1 Then MsgBox "trouvé": Exit For ' sortie dès que l'on trouve
Next
If trouvé = 0 Then MsgBox ("non trouvé pour ligne " & i) ' pb si pas trouvé dans liste
Next