Sub Valid2()
Dim WKB As Workbook: Set WKB = ThisWorkbook: Dim Ws As Worksheet: Set Ws = WKB.Worksheets("Fiche de liaison")
Dim i&, j&, tArr1
tArr1 = Split("C3 F3 F5 F6")
With WKB.Worksheets("Liste d'attente")
i = .Range("A65536").End(xlUp)(2).Row
For j = 0 To 3
.Cells(i, j + 1) = Ws.Range(CStr(tArr1(j)))
Next
End With
End Sub