Dim wkDest As Workbook
Dim i As Long
'appel le fichier à ouvir et dont on veut copier la cellule
Set wkDest = Application.Workbooks.Open(Application.GetOpenFilename)
'incrémentation de la ligne
With ThisWorkbook.Sheets("CSM [SAISIE]")
For i = 2 To 17
If .Cells(10, i).Offset(0, 1) = "" Then .Cells(10, i).Value = wkDest.Sheets("CE P1").Range("b11").Value
Next
End With
'ferme le fichier sans le sauvergarder
wkDest.Close False