comparaison de portions de colonnes

Bonjour.
Sélectionner la portion de colonne à comparer, puis exécuter la macro :

Sub test()
Dim Plage As Range, c As Range, d As Range
Dim Adresse As String, Trouve As Boolean
Set Plage = Selection
Range("A1").Select
Adresse = Plage(1).Address
Set c = ActiveSheet.UsedRange.Find(Plage(1), lookat:=xlWhole)
Do While Not c Is Nothing And c.Address <> Adresse
Trouve = True
For i = 1 To Plage.Count
If c.Offset(i, 0) <> Plage(i + 1) Then
Trouve = False
Exit For
End If
Next i
If Trouve = True Then MsgBox "Trouvé en " & c.Address
Loop
End Sub

Cordialement.
Daniel
"Rémi" <imbertremi@hotmail.fr> a écrit dans le message de news:
%23DaiQEYgGHA.3916@TK2MSFTNGP04.phx.gbl...

Bonjour,

Comment repérer une portion de colonne égale à une portion de colonne de
référence?

Merci d'avance
Rémi