Sub fabrication_tableau_export()
Dim i, j As Integer
Dim colonne_BB, cellule3, maligne_export, cell As Range
Set wbBDD_SIM = ActiveWorkbook
derliBDD_SIM = wbBDD_SIM.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
With wbBDD_SIM.Sheets(1)
Set colonne_BB = Range("BB4:BB" & derliBDD_SIM)
i = 5
j = 76
For Each cellule3 In colonne_BB
If cellule3.Value = "" Then
GoTo suivant2
Else: Set maligne_export = Sheets(1).Range("O" & cellule3.Row, "R" & cellule3.Row, "S" & cellule3.Row, "BA" & cellule3.Row, "BB" & cellule3.Row, "BC" & cellule3.Row, "BD" & cellule3.Row, "BE" & cellule3.Row)
For Each cell In maligne_export
cell.Copy Destination:=Sheets(1).Range(lettre_col(j) & i)
i = i + 1
j = j + 1
Next
End If
suivant2: Next
End With
End Sub
Public Function lettre_col(n As Variant)
lettre_col = Split(Cells(1, n).Address, "$")(1)
End Function