Doublon en ligne et colonne sélective

Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(3, Target.Column) <> "poste tenu" Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    premier = 0
    trouve = False
    If Target <> "" Then
        For col = 4 To 79 Step 3
            If Cells(Target.Row, col) = Target Then
                cpt = cpt + 1
                If Not trouve Then premier = col: trouve = True
                If cpt > 1 Then MsgBox "Poste déjà tenu par " & IIf(premier < Target.Column, Cells(2, premier), Cells(2, col)): Exit Sub
            End If
        Next col
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    'si, en ligne 3 de la colonne où on modifie, ne figure pas 'poste tenu', on sort
    If Cells(3, Target.Column) <> "poste tenu" Then Exit Sub
    'si plus d'une cellule modifiée, on sort
    If Target.Count > 1 Then Exit Sub
    premier = 0
    trouve = False
    'pour autant que la cellule ne soit pas vide
    If Target <> "" Then
        'pour les colonnes de 4 à 79 avec un pas de 4
        For col = 4 To 79 Step 3
            'si sur la ligne modifiée, pour la colonne scrutée la valeur est identique à celle de la cellule modifiée
            If Cells(Target.Row, col) = Target Then
                'on incrémente un compteur
                cpt = cpt + 1
                'si le 'flag' est faux on le bascule à vrai et premier prend le n° de la colonne scrutée
                If Not trouve Then premier = col: trouve = True
                'si cpt est > 1 (ou = à 2) c'est qu'on a déjà trouvé la valeur
                If cpt > 1 Then
                    MsgBox "Poste déjà tenu par " & IIf(premier < Target.Column, Cells(2, premier), Cells(2, col))
                    Target = ""
                    Exit Sub
                End If
            End If
        Next col
    End If
End Sub