Un peu de couleurs dans nos posts !

Sub Masquerlignesvide()
Dim cellule As Range
Dim Zone As Variant
'geler l'écran
Application.ScreenUpdating = False
'Définir zone (ici colonne A jusqu'à 1000)
Set Zone = Range("c30", Range("c1000").End(xlUp))
'on commence la boucle sur les Cellules de Zone
For Each cellule In Zone
'si cellule différente de 0 malgré formule alors masquer
If cellule.Value = "" Then cellule.EntireRow.Hidden = True
'on continue la boucle
Next cellule
'rétablir écran
Application.ScreenUpdating = True
End Sub

moncode

' Déclare les routines d'API nécessaires:
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName as String, _
                    ByVal lpWindowName As Long) As Long

Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd as Long,ByVal wMsg as Long, _
                    ByVal wParam as Long, _
                    ByVal lParam As Long) As Long

Sub GetExcel()
Dim MyXL As Object    ' Variable devant contenir la
                            ' référence à Microsoft Excel.
Dim ExcelWasNotRunning As Boolean    ' Indicateur de libération finale.

' Test pour déterminer si une copie de Microsoft Excel
' est déjà en exécution.
On Error Resume Next    ' Retarde la récupération d'erreur.
' La fonction Getobject appelée sans le premier
' argument renvoie une référence à une instance de
' l'application. Si l'application n'est pas en
' exécution, une erreur se produit.
Set MyXL = Getobject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear     ' Efface l'objet Err si une erreur s'est produite.

' Vérifie si Microsoft Excel est en exécution.
' Dans ce cas, l'ajoute à la table Running Object.
DetectExcel

' Définit la variable objet faisant référence au fichier à ouvrir.
Set MyXL = Getobject("c:\vb5\MONTEST.XLS")

' Affiche Microsoft Excel par l'intermédiaire de sa
' propriété Application. Affiche ensuite la fenêtre
' contenant le fichier à l'aide de la collection
' Windows de la référence à l'objet MyXL.
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
    ' Effectue des opérations sur votre
     ' fichier ici.
    ' ...
' Si cette copie de Microsoft Excel n'était pas en cours
' d'exécution lorsque vous avez commencé, fermez-la
' à l'aide de la méthode Quit de la propriété
' Application.
' Notez que si vous tentez de quitter Microsoft Excel,
' la barre de titre clignote et un message s'affiche
' vous demandant si vous souhaitez enregistrer les
' fichiers chargés.
If ExcelWasNotRunning = True Then
    MyXL.Application.Quit
End IF

Set MyXL = Nothing  ' Libère la référence à l'application
                          ' et à la feuille de calcul.
End Sub

Sub DetectExcel()
' La procédure détecte une instance d'Excel en
' exécution et l'inscrit.
    Const WM_USER = 1024
    Dim hWnd As Long
' Si Excel est en exécution, cet appel d'API renvoie
' son descripteur.
    hWnd = FindWindow("XLMAIN", 0)
    If hWnd = 0 Then    ' 0 signifie qu'Excel n'était
                            ' pas en exécution.
        Exit Sub
    Else
    ' Excel est en exécution, donc utilise la fonction
    ' d'API SendMessage pour l'entrer dans la table
    ' Running Object.
        SendMessage hWnd, WM_USER + 18, 0, 0
    End If
End Sub

Sub Auto_Coche_débit_Compte_Scan_Débits()
'Stop
Sheets("Scan").Visible = True
Sheets("Scan").Select
Sheets("Saisie").Visible = True
Sheets("Saisie").Select
'Attention gérer le nom zone sur les débits à cocher
For Each Cell In Range("zoneD")
'On Error Resume Next
If Cell = "" Then GoTo suite 'On Error GoTo suite
'Range(Selection, Selection.End(xlToLeft)).Select
Range("D1").Select
Range(Selection, Selection.End(xlDown)).Select
'Stop
Set X = Selection.Find(What:=Cell, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=True) '.Activate
If X Is Nothing Then GoTo suite Else X.Select: If X.Offset(0, -1) = "X" Then TrouveProchain Else X.Offset(0, -1) = "X": Sheets("Scan").Range(Cell.Address).Font.Color = RGB(255, 0, 0): X.Offset(0, 6) = Sheets("scan").Range(Cell.Address).Offset(0, -2): X.Offset(0, -3) = Sheets("scan").Range(Cell.Address).Offset(0, -4)
suite:
'suite2:
Next
'A faire mettre l'intiulé en dernière colonne intitulé OK
'Rajouter ceux qui ne sont pas en rouge automatiquement
'faire idem pour les crédits (l'appellé zoneCR)
End Sub

[/noparse] [B][COLOR=DarkRed][I]code VBA[/I][/COLOR][/B] [noparse]