With Sheets("Temp")
lig = .Range("a" & Rows.Count).End(xlUp).Row + 1
.Cells(lig, "A") = cel.Offset(0, -2) '2ème colonne à gauche de colonne C
.Cells(lig, "B") = cel.Offset(0, -1) '1ère colonne à gauche de colonne C
.Cells(lig, "C") = cel.Offset(0, 0) 'colonne de référence où se fait la recherche
.Cells(lig, "D") = cel.Offset(0, 1) '1ère colonne à droite de colonne C
.Cells(lig, "E") = cel.Offset(0, 2) '2ème colonne à droite de colonne C
End With