Ce message s'adresse a BrunoM45. Merci pour votre aide active. Je me permets de vous resolliciter suite a la demande effacé sur le serveur précédemment. J'ai remodifié mon tableau avec la version finale de ce qu'il me faudrait. Cordialement
Option Explicit
'nom des feuilles
' a modifier
'********************Feuil1
Public Const nomfeuille1 As String = "LOTML"
Public Const lidep1 As Long = 2
Public Const col1a As String = "B"
'dl1 = Sheets(nomfeuille1).Range( col1a & "65536").End(xlUp).Row
Public dl1 As Long
Public i As Long
Sub macro1a()
For i = Sheets(nomfeuille1).Range(col1a & "65536").End(xlUp).Row To lidep1 Step -1
If Sheets(nomfeuille1).Range(col1a & i) = "" Then
Sheets(nomfeuille1).Rows(i).Delete Shift:=xlUp
End If
Next i
For i = lidep1 To Sheets(nomfeuille1).Range(col1a & "65536").End(xlUp).Row
If Sheets(nomfeuille1).Range(col1a & i) = Sheets(nomfeuille1).Range(col1a & i).Offset(0, 4) Then
If Sheets(nomfeuille1).Range(col1a & i).Offset(0, 6) = "" Then
Sheets(nomfeuille1).Range(col1a & i).Offset(0, 6) = Sheets(nomfeuille1).Range(col1a & i).Offset(0, -1)
End If
Else
'Recopie de B en F
Sheets(nomfeuille1).Range(col1a & i).Offset(0, 4) = Sheets(nomfeuille1).Range(col1a & i)
End If
Next i
End Sub