Je viens d'essayer un autre code ci-dessous, et comme les autres, il ne fonctionne toujours pas sur la ligne 12 :(
Sub TriBis()
derliR = Sheets("Project").Range("R" & Rows.Count).End(xlUp).Offset(1, 0).Row
derliC = Sheets("Project").Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Row
'Dim...