Derligne = Sheets("Donnees TRS").Range("AS65536").End(xlUp).Row
With Sheets("Donnees TRS")
For i = 2 To Derligne
If .Cells(i, 45).Value = .Cells(i, 1).Value Then
If .Cells(i, 2).Value = "Huit 1" Then .Cells(i, 46).Value = .Cells(i, 11).Value
If .Cells(1, 47).Value = .Cells(i, 2).Value Then .Cells(i, 47).Value = .Cells(i, 11).Value
If .Cells(1, 48).Value = .Cells(i, 2).Value Then .Cells(i, 48).Value = .Cells(i, 11).Value
End If
Next i
End With