With Sheets("BDD")
If InStr(.Cells(lnbligne, 16), " ") <> 0 Then 'vérifie la présence d'un espace dans la cellule
varTemp = .Cells(lnbligne, 16)
MsgBox varTemp 'Test pour voir si il trouve quelque chose => Résultat: la variable est vide...
.Cells(lnbligne, 15) = Left(varTemp, InStr(varTemp, " ") - 1) 'on extrait la partie à gauche de l'espace
.Cells(lnbligne, 16) = Right(varTemp, Len(varTemp) - InStr(varTemp, " ") + 1) 'on extrait la partie à droite de l'espace
End If
End With
Set varTemp = Nothing