Sub Comparer_Fusionner_Feuille(ByVal FeuilleDepart As Worksheet, ByVal FeuilleArrivee As Worksheet)
Dim i, l, L_Trouve As Integer
Dim l1 As Range
Dim Code As String
l = FeuilleDepart.Range("A1").CurrentRegion.Rows.Count + 1
i = 2
While i < l
Code = FeuilleDepart.Cells(i, 1).Value
Set l1 = FeuilleArrivee.Columns("A").Find(Code, LookIn:=xlValues, lookat:=xlWhole)
If Not l1 Is Nothing Then
L_Trouve = FeuilleArrivee.Columns("A").Find(Code, LookIn:=xlValues, lookat:=xlWhole).Row
MsgBox ("L_Trouve=" & L_Trouve & Chr(10) & "i=" & i)
[COLOR="Red"][B]FeuilleArrivee.Range(Cells(L_Trouve, 70), Cells(L_Trouve, 81)).Copy ' erreur ici[/B][/COLOR]
FeuilleDepart.Range(Cells(i, 70), Cells(i, 81)).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
l1.EntireRow.Delete Shift:=xlUp
End If
i = i + 1
Wend
Call CopierLignes(FeuilleDepart, FeuilleArrivee)
Call Suppr_feuille(FeuilleDepart)
End Sub