Si une colonne vide alors ..

Sub Main()
'code
'du code
'encore du code
Call Message_2
'le reste du code
'encore du code
'encore un peu de code
'fini
End Sub

Sub Message_2()

' Ce programme va chercher, pour chaque FMC, le message de panne qui lui correspond si il existe et l'afficher sur la deuxieme page


Application.ScreenUpdating = False     'Désactivation de l'actualisation de l'écran pour exécution plus rapide
Dim j As Integer                       'Déclaration de la variable j
Dim i As Integer                       'Déclaration de la variable i
Dim DL As Integer

With Sheets("Feuil1")
    DL = derlig_reelle(.Columns(15))   'dernière ligne non vide de la colonne O
    For j = 3 To DL
        For i = 3 To DL
            If .Cells(i, 18).Value = .Cells(j, 15).Value And .Cells(i, 21).Value <> "" Then
                .Cells(j, 16) = .Cells(i, 18).Offset(0, -1).Value
                Exit For
            End If
        Next i
        If .Cells(j, 16).Value = "" Then .Cells(j, 16).Value = "No messages available"
    Next j
End With
Call tri                               ' Appel de la fonction de tri
Application.ScreenUpdating = True      ' Réactivation de l'actualisation de l'écran
End Sub

Private Function derlig_reelle(plage As Range) As Long
   'cas d'absence de données dans la plage à traiter :
   If WorksheetFunction.CountA(plage) = 0 Then derlig_reelle = 1: Exit Function
   'dans tous les autres cas :
   derlig_reelle = plage.Find("*", , , , , xlPrevious).Row
End Function

Sub tri()
' Ce programme a pour but d'effectuer un "tri" afin de ne plus afficher les données inutiles comme les "zéros"
' créés lors de l'application de l'algorithme. Ca permettera de présenter les résultats de manière claire et sans données superflues

Dim i As Integer            'Déclaration de la variable i

i = 3                       'La valeur i prend la valeure 3
Do While i < 382 And ActiveCell.Value <> ""  ' Boucle , tant que i est inférieur a 382 et que la valeur de la cellule active est non nulle
    If Cells(i, 15).Value = 0 Then                 ' Si la cellule active est égale à 0
        Cells(i, 15).EntireRow.Hidden = True        ' Masquage de la ligne
    End If                  ' Fin de la condition
    i = i + 1               ' La variable i prend la valeure i+1
Loop                        ' Boucle
Cells(3, 1).Select          ' Selection de la cellule (3,1)
End Sub

And .Cells(j, 21).Value <> "" Then

And .Cells(i, 21).Value <> "" Then

Ce programme à pour but d'afficher le message relatif au code , deux colonne cachées ( Q et R ) contiennent les référence ( Q = message , R = code ) , le programme doit afficher en colonne P le message du code contenu dans la colonne O.

De la ligne 3 à la dernière ligne , Si la valeur de la cellule de la colonne O et la même que celle de la colonne R et que la cellule de la colonne S n'est pas vide , alors faire un offset de 1 et copier la valeur de la colonne Q dans la colonne P

Si la colonne est vide on ne fait pas cette opération ==> la cellule reste donc vide .