Bonjour,
Tu ne donne aucune précision quand au noms des feuilles ni les colonnes concernées.
Un exemple, adapter les colonnes et les noms de feuilles.
Sub TroisColonnes()
Dim Lig1 As Long, Lig2 As Long, LigCopie As Long, DerLig As Long
Dim TB1
Dim TB2
With Sheets("Feuil1")
DerLig = .Range("A1").End(xlDown).Row
TB1 = Application.Transpose(.Range("A1:A" & DerLig).Value)
End With
With Sheets("Feuil2")
DerLig = .Range("A1").End(xlDown).Row
TB2 = Application.Transpose(.Range("A1:A" & DerLig).Value)
End With
Application.ScreenUpdating = False
LigCopie = 3 ' première ligne où commencer la copie
With Sheets("Feuil3")
For Lig1 = 1 To UBound(TB1)
For Lig2 = 1 To UBound(TB2)
If TB1(Lig1) = TB2(Lig2) Then
.Cells(LigCopie, 1) = TB1(Lig1)
.Cells(LigCopie, 2) = Sheets("Feuil1").Cells(Lig1, 2)
.Cells(LigCopie, 3) = Sheets("feuil2").Cells(Lig2, 2)
LigCopie = LigCopie + 1
Exit For
End If
Next Lig2
Next Lig1
End With
End Sub
Tu dis ce que tu comprend... ou ce que tu ne comprend pas..
A+