'With ActiveWorkbook.Sheets("Feuil1")
For a = 3 To 7
' If k > 9 Then
' .Cells(3, a).Value = WorksheetFunction.VLookup(.Range("b3").Value, _
' Workbooks(k & "-CLIENT").Sheets("Résultats").Range("a1:ax400"), 26, False)
' Cells(3, a).Select
'Selection.AutoFill Destination:=Range(Cells(3, a)...