je realise le code suivant sur plus de 65000 lignes
c tres tres long !
quelau'un aurait une idee ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
  For Each MaCellule In ActiveSheet.Range(LoginCol & ":" & LoginCol)
        If IsEmpty(MaCellule) Then
            Exit For
        Else
            Cells(i, FNameColWin).FormulaLocal = "=VLOOKUP(" & LoginCol & i & ",Win!B:B,2,FALSE)"
            Cells(i, LNameColWin).FormulaLocal = "=VLOOKUP(" & LoginCol & i & ",Win!C:C,3,FALSE)"
            Cells(i, FNameColUnix).FormulaLocal = "=VLOOKUP(" & LoginCol & i & ",Win!B:B,2,FALSE)"
            Cells(i, LNameColUnix).FormulaLocal = "=VLOOKUP(" & LoginCol & i & ",Win!C:C,3,FALSE)"
        End If
    i = i + 1
 
    Next MaCellule
merci