With Sheets(nomfeuille1)
For Each cellule In .Range(col1 & lidep1 & ":" & col1 & .Range(col1 & "65536").End(xlUp).Row)
If cellule <> "" Then
' on recherche la colonne qui contient le nom
col2 = colonneLCenAX(recherchecolonne(nomfeuille1, cellule.Value, 7, 8))
'on vérifie si pas doublon
j = .Range(col2 & "65536").End(xlUp).Row + 1
If j = 8 Then j = 9
.Range(col2 & j) = cellule.Offset(0, 2).Value