Private Sub UserForm_Initialize()
Sheets("Projects").Select
Application.ScreenUpdating = False
Me.Height = 72
Dim compteur As Double, progression As Double
compteur = 0
progression = 0
Dim dossier As String, fic As String, anciencode As String, nouveaucode As String, designation As String, I As Integer, j As Integer
Dim pointeur As Integer, Cellule As String
dossier = Worksheets("INI").Range("B6").Value
fic = Worksheets("INI").Range("B5").Value
I = 2
Sheets("Projects").Unprotect ("mdp")
pointeur = 2
Cellule = "lol"
Do Until Cellule = ""
pointeur = pointeur + 1
Cellule = Cells(pointeur, 2)
Loop
Do Until ExecuteExcel4Macro("'" & dossier & "\[" & fic & "]Project list'!R" & I & "C2") = "0"
j = 2
compteur = compteur + 1
designation = ExecuteExcel4Macro("'" & dossier & "\[" & fic & "]Project list'!R" & I & "C3")
Do Until designation = Cells(j, 3) Or j = pointeur
j = j + 1
Loop
If designation = Cells(j, 3) Then
........
End If
If j = pointeur Then
.......
End If
I = I + 2
progression = progression + 1
Image_barre.Width = progression * 1.5
Label_barre.Caption = progression & "%"
DoEvents
UserForm.Repaint
Loop
Sheets("Projects").Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
Me.Height = 95
End Sub