Bonjour le forum.

Dans le cadre de mon stage, je souhaite créer un annuaire (40 000 lignes sur Excel donc à automatiser).
A partir de plusieurs bases de données, j'ai rapprochés les différentes informations des mêmes clients que l'on pouvait trouver.

Cependant, lorsque l'on retrouve plusieurs numéros de téléphone, je n'arrive pas saisir sur la même ligne, qui regroupe les informations, les 2 numéros de téléphone.

Pourtant ma macro me paraît cohérente mais je n'arrive pas au résultat voulu.
J'aimerais donc bénéficier de votre aide



Pour info, ma macro:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Essai()
 
Dim L As Long, TEL1 As Variant, TEL2 As Variant
 
For L = 2 To 35777
 
 If Cells(L, 3).Value <> Cells(L - 1, 3).Value Then
  TEL1 = ""
  TEL2 = ""
 End If
 
 
 If Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" Then
  TEL1 = Cells(L, 16).Value
 ElseIf Cells(L, 2).Value <> "HOV" And Cells(L, 16).Value <> "" And Cells(L, 16) <> TEL1 Then
  TEL2 = Cells(L, 16).Value
 End If
 
 
 If Cells(L, 2).Value = "HOV" Then
  TEL1 = Cells(L, 15).Value
  TEL2 = Cells(L, 16).Value
 End If
 
 
Next L
 
 
End Sub