With Worksheets(strJour)
' 1er bloc de chèques entre les colonnes M13 et Y20
' Lignes de 13 à 20
For lgLig = 13 To 55
If lgLig < 21 Or lgLig > 47 Then
' Colonnes de M à V par pas de 3
For lgCol = 13 To 25 Step 3
' For lgCol = 13 To 22 Step 3
' If .Range("Y" & lgLig) <> 0 And .Cells(lgLig, lgCol) <> "" Then
If .Cells(lgLig, lgCol) <> "" Then
Cells(lgLigChq, lgColChq).Value = dtDate
Cells(lgLigChq, lgColChq + 2).Value = .Cells(lgLig, lgCol).Value
lgLigChq = lgLigChq + 1
End If
' Les lignes à afficher ne doivent pas dépasser la ligne 150
If lgLigChq > 150 Then
lgLigChq = 108
lgColChq = lgColChq + 4
End If
Next lgCol
End If
Next lgLig
End with