cellules vides et format en export SAP

Option Explicit

Sub MiseEnForme()
  Dim r As Range
  Dim CodeClient As String
  Dim NomClient As String
  Dim Mode As String
  Dim nbLi As Long, i As Long
  
  nbLi = Feuil1.[A2].CurrentRegion.Rows.Count
  
  'Copie et Format
  For Each r In Feuil1.Range("A2:A" & nbLi)
    'Recopie des valeurs
    If r.Offset(0, 1).Value <> "" Then
      CodeClient = r.Offset(0, 1).Value
      NomClient = r.Offset(0, 2).Value
      Mode = r.Offset(0, 11).Value
    Else
      r.Offset(0, 1).Value = CodeClient
      r.Offset(0, 2).Value = NomClient
      r.Offset(0, 11).Value = Mode
    End If
    'Converstion des dates
    On Error Resume Next
      r.Offset(0, 6).Value = CDate(r.Offset(0, 6).Value)
      r.Offset(0, 7).Value = CDate(r.Offset(0, 7).Value)
    On Error GoTo 0
  Next r
  
  'Suppression
  For i = nbLi To 2 Step -1
    If Feuil1.Range("D" & i).Value = "" Then Feuil1.Range("D" & i).EntireRow.Delete
  Next i
End Sub