Dupliquer une macro à une colonne entiere

Bonjour, j'aimerai pouvoir dupliquer un code d'une cellule à une colonne entiere, je l'ai fait pour 7 cellules, mais je ne me vois pas faire la colonne entiere, a t'il une solution?

Merci

Sub dern_connexion()
If Feuil5.Range("P4").Value = Feuil5.Range("A7").Value Then
        Feuil5.Range("N7").Value = Feuil5.Range("Q4").Value
    Else

    End If
    If Feuil5.Range("P4").Value = Feuil5.Range("A8").Value Then
        Feuil5.Range("N8").Value = Feuil5.Range("Q4").Value
    Else

    End If
    If Feuil5.Range("P4").Value = Feuil5.Range("A9").Value Then
        Feuil5.Range("N9").Value = Feuil5.Range("Q4").Value
    Else

    End If
    If Feuil5.Range("P4").Value = Feuil5.Range("A10").Value Then
        Feuil5.Range("N10").Value = Feuil5.Range("Q4").Value
    Else

    End If
    If Feuil5.Range("P4").Value = Feuil5.Range("A11").Value Then
        Feuil5.Range("N11").Value = Feuil5.Range("Q4").Value
    Else

    End If
    If Feuil5.Range("P4").Value = Feuil5.Range("A12").Value Then
        Feuil5.Range("N12").Value = Feuil5.Range("Q4").Value
    Else

         If Feuil5.Range("P4").Value = Feuil5.Range("A13").Value Then
        Feuil5.Range("N13").Value = Feuil5.Range("Q4").Value
    Else

    End If
    End If
    End Sub

Salut :

Le code pourrait devenir de comme cette façon

Sub dern_connexion()

For x = 4 To 13

If Range("P4").Value = Range("A" & x).Value Then Range("N" & x).Value = Range("Q4").Value

Next

End Sub

Bonjour, ça marche niquel, je te remercie beaucoup.