For i = 3 To nblignetotal
If wb.Worksheets("PROCESS KNOWLEDGE").Range("A" & i).Value <> "" Then
wb.Sheets("PROCESS KNOWLEDGE").Range("a" & i).EntireRow.Copy
ThisWorkbook.Sheets("PROCESS KNOWLEDGE").Activate
Sheets("PROCESS KNOWLEDGE").Range("A" & j).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
j = j + 1
End If
Next