Private Cel As Range
Private L1 As Integer, L2 As Integer, L3 As Integer, L4 As Integer
Private P1 As Range, P2 As Range, P3 As Range, P4 As Range
Private L11 As Integer, L22 As Integer, L33 As Integer, L44 As Integer
Private P11 As Range, P22 As Range, P33 As Range, P44 As Range
Private L111 As Integer, L222 As Integer, L333 As Integer, L444 As Integer, L555 As Integer
Private P111 As Range, P222 As Range, P333 As Range, P444 As Range, P555 As Range
Private x As Integer
Private Sub UserForm_Initialize()
''PARTIE BUREAU DE CONTROLE
L1 = shtDonnees.Range('B500').End(xlUp).Row
L2 = shtDonnees.Range('C500').End(xlUp).Row
L3 = shtDonnees.Range('D500').End(xlUp).Row
L4 = shtDonnees.Range('E500').End(xlUp).Row
Set P1 = shtDonnees.Range('B7:B' & L1)
Set P2 = shtDonnees.Range('C7:C' & L2)
Set P3 = shtDonnees.Range('D7:D' & L3)
Set P4 = shtDonnees.Range('E7:E' & L4)
frmBuroExt.regNomCont.Clear
frmBuroExt.regAdresseCont.Clear
frmBuroExt.regCPCont.Clear
frmBuroExt.regTelCont.Clear