Public Function PositionCommentaire(strCode As String) As Long
Dim iCar As Long, flStr As Boolean
PositionCommentaire = 0: flStr = False
For iCar = 1 To Len(strCode)
If Mid(strCode, iCar, 1) = """" Then flStr = Not flStr
If Mid(strCode, iCar, 1) = "'" Then
If Not flStr Then
PositionCommentaire = iCar
Exit Function
End If
End If
Next iCar
End Function