Sub recopie2()
'récupère la dernière ligne du tableau
dernièreligne = Range("A" & Rows.Count).End(xlUp).Row
'on set la première ligne en début de macro, plus besoin de modifier les indices dans la macro
premièreligne = 11
Range("F" & premiereligne & ":Z" & derniereligne).ClearContents
For i = dernièreligne To premièreligne Step -1
Set liste = Range("A" & i & ":E" & i)
If i = dernièreligne Then
fin = 6
Else: fin = Cells(i + 1, Range(i & ":" & i).Columns.Count).End(xlToLeft).Column + 1
End If
For Each nb In liste
If i = dernièreligne Then
Set nouveau = Range(Cells(i, 6), Cells(i, fin)).Find(nb, lookat:=xlWhole)
Else
Set nouveau = Range(Cells(i + 1, 6), Cells(dernièreligne, fin)).Find(nb, lookat:=xlWhole)
End If
If nouveau Is Nothing Then
Cells(i, fin) = nb
Cells(i, fin).Font.ColorIndex = 3
With Range("Base70")
Set ici = .Find(nb, lookat:=xlWhole)
If Not ici Is Nothing Then
ici.Interior.ColorIndex = 3
'ici.ClearContents
End If
End With
fin = fin + 1
Else
Cells(i, nouveau.Column) = nb
End If
Next nb
Next i
End Sub