Sub Fusion_Step2()
Dim WS_Count As Integer
Dim i As Integer
Dim array_elt() As String
Dim array_cell() As String
Dim bigrng As Range
Dim ok As Boolean
Dim ligne, colonne, nbr As Integer
ligne = 2
colonne = 1
Set ws = ActiveWorkbook.Sheets("F2")
ws.Cells.ClearContents
WS_Count = ActiveWorkbook.Worksheets.Count
Set bigrng = ws.Range("A1", "A1")
Dim rng As Range
Set rng = ActiveWorkbook.Worksheets("FR").Range(ActiveWorkbook.Worksheets("FR").UsedRange.Address)
If ActiveWorkbook.Worksheets("FR").UsedRange.Address <> "$A$1" Then
For Each cell In rng.Cells
ok = True
If cell <> "" Then
For Each cellBig In bigrng
nbr = 0
array_cell = Split(cellBig.Value, "-")
array_elt = Split(cell.Value, "-")
For t = 0 To UBound(array_elt)
For r = 0 To UBound(array_cell)
If array_cell(r) = array_elt(t) Then
nbr = nbr + 1
If (nbr = UBound(array_cell) + 1) Then
ok = False
Exit For
End If
End If
Next r
Next t
Next cellBig
If ok = True Then
ws.Cells(ligne, colonne) = cell.Value
Set bigrng = Union(bigrng, ws.Cells(ligne, colonne))
colonne = colonne + 1
If colonne = 8 Then '+++++++++++++precedement 9 pour 8 colonnes +++++++++++++++++
ligne = ligne + 1
colonne = 1
End If
End If
End If
Next cell
End If
End Sub
ceci est le code qui permet de remplir le fichier F2 et j'aimerais k lors du remplissaage k'il commence de la dernière ligne qui n'est connu a la première ligne, svp aidez moi c'est urgent je suis bloquer