'autres credentials
If Not Sheets("acces1").Cells(i + 1, 1).Value = "" Then
i = i + 1
nouvdata = nouvdata + 1
Cells(nouvdata, 3).Value = Sheets("acces1").Cells(i, 1).Value
Cells(nouvdata, 4).Value = Sheets("acces1").Cells(i, 2).Value
Cells(nouvdata, 5).Value = Sheets("acces1").Cells(i, 3).Value
Cells(nouvdata, 6).Value = Sheets("acces1").Cells(i, 4).Value
End If