juste une petite question pour centrer le texte dans les cellule sauf les montants
ou dois-je modifier
Merci d'avance.
Private Sub Worksheet_Activate()
'
Dim iRow%, iRowBDC%, iFlag%
'
Application.ScreenUpdating = False
'
iRow = Range("B" & Rows.Count).End(xlUp).Row
If iRow > 2 Then Range("B3:H" & iRow).Delete
'
With Worksheets("BDC")
iRowBDC = .Range("A" & Rows.Count).End(xlUp).Row
If iRowBDC > 4 Then
For x = 5 To iRowBDC
If .Range("A" & x).Value <> "" Then
iFlag = iFlag + 1
Range("B" & 2 + iFlag & ":H" & 2 + iFlag).Value = .Range("B" & x & ":H" & x).Value
End If
Next
End If
Range("B2:H" & 2 + iFlag).Borders.LineStyle = 1
End With
'
Application.ScreenUpdating = True
'
End Sub