Macro qui retourne des données en colonnes

Sub classer()
Dim i&, a&, x&, aa As Variant, bb As Variant, cc As Variant, dd As Variant, t$
aa = Sheets("Dummies").Range("A2:CO" & Sheets("Dummies").Range("A" & Rows.Count).End(xlUp).Row)
bb = Sheets("Crime").Range("A2:V" & Sheets("Crime").Range("A" & Rows.Count).End(xlUp).Row)
cc = Sheets("Education").Range("A2:X" & Sheets("Education").Range("A" & Rows.Count).End(xlUp).Row)
dd = Sheets("Gunproduction").Range("A2:X" & Sheets("Gunproduction").Range("A" & Rows.Count).End(xlUp).Row)
t = Timer
Feuil2.Range("A2:CO" & Feuil2.Range("A" & Rows.Count).End(xlUp).Row).ClearContents
For i = 1 To UBound(aa)
For a = 1 To UBound(bb)
If aa(i, 1) = "" Then GoTo 1
If aa(i, 1) = bb(1, i) And aa(i, 2) = bb(i, 1) Then
aa(i, 3) = bb(a, 2)
End If
Next a
For x = 1 To UBound(cc)
If aa(x, 1) = cc(1, x) And aa(x, 2) = cc(x, 1) Then
aa(x, 3) = cc(a, 2)
End If
Next x
For k = 1 To UBound(dd)
If aa(k, 1) = dd(1, x) And aa(k, 2) = dd(k, 1) Then
aa(k, 3) = dd(a, 2)
End If
Next k

1 Next i
Feuil2.Range("A2").Resize(UBound(aa), UBound(aa, 2)) = aa
Feuil2.Columns("S:T").AutoFit
MsgBox "Traitement effectué en " & Format(Timer - t, "0.00 S")
End Sub

Cliquez pour agrandir...