Test colonne par rapoort à une autre

bonjour

Tu peux faire cela avec un filtre élaboré en partant de ta feuille 3 .

j'ai réalisé ce petit programme

Sub Macro6()
Dim drligne
Dim prligne
Dim ligne
Dim nb
Dim n
Dim a
Dim b
Dim i
Dim j
a = 0
b = 0
i = 0
j = 0
nb = 0
n = 0
Sheets("Feuil2").Select
prligne = 2
drligne = prligne
Cells(drligne, 1).Select
Do While ActiveCell.Value <> ""
drligne = drligne + 1
Cells(drligne, 1).Select
nb = drligne - 1
Loop
Sheets("Feuil1").Select
ligne = prligne
Cells(ligne, 1).Select
Do While ActiveCell.Value <> ""
ligne = ligne + 1
Cells(ligne, 1).Select
n = ligne - 1
Loop
Sheets("Feuil2").Select
For i = prligne To nb
a = Cells(i, 1).Value
Sheets("feuil1").Select
For j = prligne To n
b = Cells(j, 1).Value
If a = b Then
Sheets("feuil1").Select
Rows("j:j").Select
Selection.Copy
Sheets("Feuil3").Select
Rows("j:j").Select
ActiveSheet.Paste
j = j + 1
Else
j = j + 1
End If
Next
Next i
End Sub

seulement quand je le lance il met une erreur sur la ligne: Rows("j:j").select
et je ne sais pas pourquoi.
Si quelqu'un peut m'aider merci beaucoup

bonjour

seulement quand je le lance il met une erreur sur la ligne: Rows("j:j").select

"j:j" pourrais presque être une colonne mais avec "J:J"

Si tu veux utiliser ta variable j tu mets : Rows(j).select

merci c nikel