Re : deux boucle bancales
Merci je viens de me le mettre ca evitera certain derapage, mais sur ce module, je l'avais deja mis.
le code que tu m'as donné fonctionne trés bien,
le deuxieme malgrés la rectification me pose encore des problemes, je pense avoir mal definit j
Dim j
Dim derlig As Long
derlig = Range("E65536").End(xlUp).Row
For Each j In Range(Cells(14, 5), Cells(derlig, 5))
If j = "Code" Then
j = j.Offset(0, -2).Value & j.Offset(0, -5).Value
End If
Next j
merci encore pour tout