Sub MiseAjour()
Dim Ligne%, Colonne%, L%, F, Chaine$, Qté, Fournisseur
Range("N1:ZZ100").ClearContents
Application.ScreenUpdating = False
' Mise à jour Liste client ( colonne N )
Ligne = 3
For L = 3 To Range("B65500").End(xlUp).Row
If Cells(L, "B") <> "" Then
Cells(Ligne, "N") = Cells(L, "B"): Ligne = Ligne + 1
End If
Next L
' Mise à jour Liste fournisseurs
Colonne = 15 ' Colonne O
For Each F In Worksheets
If Left(F.Name, 11) = "FOURNISSEUR" Then
Chaine = Sheets(F.Name).[B1]
Cells(1, Colonne) = F.Name
Cells(2, Colonne) = Left(Chaine, Len(Chaine) - 33)
Colonne = Colonne + 1
End If
Next F
' Mise à jour relation client fournisseur
Ligne = 3: Colonne = 15
While Cells(2, Colonne) <> ""
While Cells(Ligne, "N") <> ""
Fournisseur = Cells(1, Colonne)
Qté = Application.CountIf(Sheets(Fournisseur).[B:B], Cells(Ligne, "N"))
If Qté <> 0 Then
Cells(Ligne, Colonne) = Qté
End If
Ligne = Ligne + 1
Wend
Colonne = Colonne + 1: Ligne = 3 ' Réinit ligne
Wend
Application.ScreenUpdating = True
End Sub