Une macro pour colonne à transforme en ligne

Bonsoir à tous
Sur ce magnifique forum j’ai récupère une macro qui me permet de trouver les doublons dans les colonnes,j’aimerais la transformer pour qu’elle recherche en ligne,pouvez-vous m’aider ?




Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column < 4 Then

If Application.WorksheetFunction. _
CountIf(Columns(Target.Column), Target.Value) > 1 Then
MsgBox "Vous avez déjà saisi ce numéro -- recommencer"
Target.Value = ""
Target.Select
End If
End If
End Sub




Merci pour votre aide