Derniere ligne non vide


#1

bonjour

je souhaitarais recuperer des donnes dans mes basses de données en fonction de du premier chifre de la cellule AO et en focntion de la cellule A
sachant que jai plusieur feuille
jai mis un programme qui les recupere mais quand il ya par exemple dans la ligne de la feui1 des donnee qui corespond a mes boucles if et dans la ligne 2 de ma 2 eme feuilles ya aussi des donnes quil faut recuperer , le programme maffiche dans ma feuille de synthese que la ligne 2 de ma derniere feuil (feuille 2) autrement dit il ecrase les donnees de la fauille 1 , et moi je veux les recuperer les 2 ligne
dabors la ligne 2 de ma premiere feuil dans la ligne 2 de ma feuille de synthese et dans la ligne 3 de ma feuille de synthese je vais avoire les donnée de la ligne 2 de la feuilles 2

jai utilise derniere ligne non vide mais il ecrase aussi

VOICI LE PROGRAMME

       Sub nnnn()

 Dim a, b(4) As Integer, i As Integer, f As Integer, m As Integer, L As Integer, dlig2 As Integer

Columns("H:M").ClearContents
dlig2 = Range("H65536").End(xlUp).Row + 1
a = Worksheets("NEW_VB_config").Range("o2:o12") 'nom des 11 feuilles
For i = 2 To 1000
  For L = 1 To 6
       For f = 1 To 11                 'boucle sur les feuilles
         If a(f, 1) <> "" Then
  With Worksheets(a(f, 1))
    If .Range("ao" & i).Value <> "" Then
      For m = 1 To 4
        b(m) = Mid(.Range("ao" & i), m, 1)
        
          
          ' Q
          If ActiveCell.Activate And .Range("a" & i).Value = ActiveSheet.Range("a1").Value Then
                 If ActiveCell.Row = 2 And ActiveCell.Column = 2 And b(1) = 1 Then
                         ActiveSheet.Cells(dlig2, L + 7) = .Cells(i, L)
                  ElseIf ActiveCell.Row = 3 And ActiveCell.Column = 2 And b(1) = 2 Then
                         ActiveSheet.Cells(dlig2, L + 7) = .Cells(i, L)
                  ElseIf ActiveCell.Row = 4 And ActiveCell.Column = 2 And b(1) = 3 Then
                         ActiveSheet.Cells(dlig2, L + 7) = .Cells(i, L)
                  ElseIf ActiveCell.Row = 5 And ActiveCell.Column = 2 And b(1) = 4 Then
                         ActiveSheet.Cells(dlig2, L + 7) = .Cells(i, L)

        
                End If
                End If

      Next m
    End If
      End With
             End If
          Next f
            Next L
              Next i



      End Sub