Option Explicit
Sub test2()
Dim t(0 To 7) As Variant, i As Byte, r As Double, r2 As Double, i2 As Byte
Set t(0) = Sheets("feuil1").Range("A2:A7")
Set t(1) = Sheets("feuil2").Range("A2:A7")
Set t(2) = Sheets("feuil2").Range("B2:B7")
Set t(3) = Sheets("feuil2").Range("C2:C7")
Set t(4) = Sheets("feuil3").Range("A2:A7")
Set t(5) = Sheets("feuil3").Range("B2:B7")
Set t(6) = Sheets("feuil3").Range("C2:C7")
Set t(7) = Sheets("feuil3").Range("D2:D7")
For i = 1 To 7
r = Application.Max(Application.Correl(t(0), t(i)), r)
If r > r2 Then r2 = r: i2 = i
Next i
MsgBox r
Application.Goto Range(t(i2).Address(external:=True))(0)
End Sub